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- LEICHT VERSTÄNDLICH 


Der DRAGON 32 ist ein lebender Beweis dafür, daß 
man kein Experte in „Computer-Chinesisch” sein 
muß, um ein Computer-Fachmann zu werden. Zu- 
sammen mit ihm erhalten Sie eines der am einfach- 
sten zu verstehenden Programmierhandbücher für 
BES IETURTICSCHRNEIGCHHALTTET EEG 
sprache der Welt) das je für einen Heimcomputer 
geschrieben wurde. 

Jeder Schritt, jede Erläuterung ist auch für Anfänger 
leicht verständlich. In wenigen Minuten können Sie 
bereits ein einfaches Programm schreiben, in weni- 
gen Stunden werden Sie fasziniert sein von den 
Möglichkeiten, die sich Ihnen bieten. 

Im Kurs-Handbuch sind 60 Programme eingebaut, 
die Ihnen eine neue Welt erschließen - mit Hilfe des 
vielseitigen und leistungsstarken DRAGON 32. 


- SOFORT EINSATZBEREIT 


Sie müssen nicht gleich mit dem Programmieren 
anfangen. Es gibt ein ständig wachsende Anzahl 
fertiger Programme auf normalen Rekorder-Kasset- 
ten und Steckmodulen. Sobald Sie Ihre ersten Pro- 
gramme schreiben, können diese bequem auf nor- 
malen Kassetten gespeichert werden. 

Dazu einfach Ihren Kassettenrecorder mit dem 
DRAGON 32 verbinden und mit jeweils einem einzi- 
ESS RS HEUGHESTEWATRENT BANG WLENTERIG 
schen Möglichkeiten eines Familien-Computers! 


- BRINGT FARBE INS PROGRAMM 


Neun Farben bringen Leben auf den Bildschirm. 
DIEENOSSESTSENTTEIGTE N UERNER 


Microsoft Extended Colour Basic ermöglicht es, mit 
einfachen Befehlen Vorder-und Hintergrundfarben 
zu bestimmen, einen einzelnen Farbtupfer auf den 
Bildschirm zu bringen oder auch die ganze Fläche 
EIKZAN EUR 


- EIN GRAFIKER 


Eine besondere Stärke des DRAGON 32 sind seine 
EINEM ENLTERENGENBASEN EI EELE 1 E 
DIRTEICHREHELEI SEI STEH USSICHRERTERTET TH 
ne Auflösungsgrade von 512 Textstellen (16x32) 
bis zu 49152 Bildschirmpunkten (192x256). Mit 
einfachen Grafik-Befehlen können Sie Linien, 
Rechtecke, Quadrate, Bögen, Ellipsen oder Kreis 
zeichnen; oder Sie entwerfen eine Gestalt und än- 
PH EUNE EICHE VELSIELRT EZ ENTE EEE 
15fache Vergrößerung! Die Grafik läßt sich zusätz- 
lich auch noch über vier rechtwinklige Positionen 
ER 


- IST MUSIKALISCH 


Volle 5 Oktaven stehen Ihnen für Musik und Sprach- 
synthese zur Verfügung. Melodien sind leicht zu 
programmieren und Klangeffekte beleben die Hand- 
lung in Programmen. 

Natürlich können Sie mit dem DRAGON 32 auch 
komponieren: Sie geben Noten, Vorzeichen, Tempi 
etc ein - der Computer spielt Ihnen das komponierte 
Lied vor. 


- FLEXIBEL UND LEICHT ZU BEDIENEN 


Die Programmiersprache Microsoft Extended Co- 
lour Basic bietet dem Programmierer unzählige Ge- 


Funktions 
sicherheit 
jeder Taste für 
20 Millionen 
Anschläg: 


staltungsmöglichkeiten. Ein komfortabler Zeilene- 
ditor gestattet zügiges Korrigieren von Program- 
men. 


- EIN ANPASSUNGSFÄHIGER COMPUTER 


Das Design des DRAGON 32 ist so ansprechend, 
EUBO STH TEUERSTE RNIT] 
seiner hervorragenden Fähigkeiten kann er auch in 
der Schule oder im Büro eingesetzt werden. Der 
DRAGON 32 stellt sicher, daß Sie mit der schnellebi- 
gen Welt der Microcomputer Schritt halten. 


- EIN QUALITÄTSERZEUGNIS 


Der DRAGON 32 besitzt eine professionelle Schreib- 
maschinentastatur, über die Sie die Programme, 
Spiele und Befehle an den Computer eingeben. Die 
LESE NH EEATTGHSCHNACHSNERST 
oft eine Schwachstelle - ist für starke Beanspru- 
chung ausgelegt. Die Funktionssicherheit jeder Ta- 
BCHESEU ES EES@T NTCHEHEEUSSHEGTER 
Mit den Zeilen-Editor bietet der DRAGON 32 die 
Möglichkeit, Programme besonders schnell und 
leicht zu schreiben. 


- VIELSEITIG UND AUSBAUFÄHIG 


Bag IE RRESTAEEH HEBT ES IESSSHTTG 
NEIEWATRE LATEIN WNTETTEESESTET EHER 

®@ 2 Eingänge für Joysticks (Spielhebel), ideal für 
viele Spiele. 

© Anschlußbuchse für handelsüblichen Kasset- 
tenrekorder zum Speichern Ihrer Programme auf 
normale Kassetten. Eingang für ROM-Steckmodule, 
die unmittelbar und schnell gelesen werden. 


WS5DRAGON 32 
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Netzgerät-Eingang 


Ein/Aus-Schalter 


Anschluß für 
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ZT SICHERTE SEHENKENEN 
Druckers, damit Sie Programme, Listen usw. druk- 
ken können. 

®@ Farbfernsehausgang und zusätzlicher Monitor- 
ZAUESETTRGETUSHLS RER ENG EIAN TIGE TG 
beides gleichzeitig anschließen können. 


- WÄCHST MIT IHREN ANSPRÜCHEN 


LESE ETESERDEILENERIEIGLTNDWILGS 
DRAGON 32 auf 64 K erweitern lassen. 

© In Kürze kommt das DRAGON-Floppy-Disk-Sy- 
stem mit Steuermodul und bis zu zwei Disketten- 
[EINIGE 

I U 1 RERSETSTT SU ENTEHETTSTEICH ING ERE 
nen die Wahl folgender Erweiterungen gibt: 
EHE UENESESCHEENSCHERGERESCH 
moduls) 

u SPRPZST SCHERE EAN 

- Zusätzlicher 8-Bit-Microprozessor zur Nutzung 
einer Vielzahl von Programmen für Beruf und Be- 
trieb. 


- SEINE PROGRAMME (SOFTWARE) 


Viele der bekanntesten Computerspiele der Welt 
sind als fertige Programme für den DRAGON 32 er- 
hältlich. Von Schach über Kämpfe mit Geistern bis 
hin zu fesselnden Abenteuern. Die ganze Familie 
kann spielend die Computerwelt entdecken und mit 
sinnvollen Programmen, wie Budget, Adressen, 
persönliche Finanzen und anderen Programmen al- 
le Möglichkeiten moderner Computertechnologie 
ohne viel Schwierigkeiten nutzen. Die leicht ver- 
ständlich geschriebenen Anleitungen machen den 


Einstieg in die „Computerei” kinderleicht. 


- EIN EUROPÄISCHER COMPUTER 


Der DRAGON 32 wurde in Swansea, im Westen 
Großbritanniens von einem Fach-Team für Compu- 
terforschung von DRAGON Data Ltd. entwickelt. Die 
ganze Erfahrung jahrzehntelanger Entwicklungs- 
und Produktionstätigkeit steht hinter dem DRAGON 
32 und stellt dadurch seine kontinuierliche Weiter- 
entwicklung sicher. 


TECHNISCHE EINZELHEITEN 


®@ Hochmoderner Microprozessor 6809E 

@ Serienmäßiger Anwenderspeicher (RAM) 32K, 
erweiterbar auf 64K. Noch 26K frei verfügbar bei 4 
Seiten hochauflösender Grafik. 

®@ Serienmäßig die erweiterte Basic-Version: „Mic- 
rosoft Extended Colour Basic” (Microsoft Basic ist 
die gebräuchlichste Basic-Version der Welt). 

DIE VORZUGE: 

- hochentwickelte Grafikbefehle wie SET, LINE, 
DRAW, CIRCLE, PAINT 

- komfortable Ausgabe mit PRINT&, PRINT USING 
- umfassende Ton- und Geräuscherzeugung mit 
SOUND, PLAY 

ENG IEUSSIER IHSCHTEESERSEU HG 
ders 

- volle Edit-Funktion mit Insert, Delete, Change, 
usw. 

@ BILDSCHIRM-AUSGABE: 

- 9 Farben 

- 5 verschiedene Auflösungsgrade von 512 Text- 
stellen (16x32) bis 49152 Bildschirmpunkten 


(192x256) bei hoher Auflösung 

- Heimfernsehgerät (UHF) und/oder Farbmonitor 
@ TASTATUR 

BESEUT AB ERSLHENGENENEIGTTEN eG ANTT 
sie EDV-Eingabeterminals verwendet wird 

- weicher, angenehmer Anschlag 

- hoher Schreibkomfort 

- Funktionssicherheit jeder Taste für 20 Millionen 
LUERUERT r A 
@ EINFACHE STECKANSCHLUSSE FÜR: 
- 2 Joysticks/Spielhebel 

- handelsüblichen Kassettenrekorder 
BERG) 

- Drucker (Centronics-Parallel) 

- Steckmodule 

@ 190-seitiges „Basic-Programmierhandbuch” 
und Anleitung im Preis enthalten. 
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Ihr DRAGON 32 kostet nur 998,- DM 


Ausführliche Liste mit Informationen 
über Software-Module und- Kassetten 
liegt jeder Bestellung bei. 


Liebe Leserin. Lie 


Schönen Dank einmal an 
dieser Stelle für die Treue 
und das Vertrauen, das 
Sie uns jeden Monat ent- 
gegenbringen. 

Durch Sie wurde Home- 
computer von Monat zu 
Monat auflagenstärker 
und erhält dadurch im- 
mer mehr Gewicht, was 
sich in der steigenden Zahl 
der Interessenten aus dem 
Bereich der Wirtschaft wie- 
derspiegelt. 

Um Ihnen Ihr Homecom- 
puter auf Dauer weiter zu 





ber Leser. 


verbessern, haben wir ei- 
ne Menge Veränderungen 
in unserem Verlag vorge- 
nommen. Wir ziehen ge- 
rade um - in ein größeres 
Gebäude, weil das bishe- 
rige viel zu klein gewor- 
den ist, haben ein eigenes 
Fotosatz-Studio eingerich- 
tet, wo mehrere neue Pro- 
dukte unseres Verlages ent- 
stehen werden: Magazine 
und Computerbücherz.B. 
Das alles verdanken wir 
Ihnen und dem Erfolg von 
Homecomputer. 


Herzlichen Dank im Namen aller Mitarbeiter 


Ihr Ralph Roeske 


RL 
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Homecomputer bringt in diesem Monat: 


Homecomputer unterwegs 
ZX-Microcomputer-Fair in London 


Eine Messe nur für Microcomputer 
Homecomputer hat sich für Sie dort umgesehen. 


Software 
Hobbit, Jumpin Jack, Pssst & Skramble 6 


Software ist das Salz in der Microsuppe. 
HC stellt jeden Monat neue PGMe vor. 


Hardware 
Der Dragon 32 im Kurzportrait 


Die ZX Seiten 
Apfelbaum 


Ein lustiges Spiel für die jüngeren Microfans 


ZX ärgere dich nicht 


Ob er sich ärgern kann? 
Auf jeden Fall muß man zuerst mal die besseren Würfe zeigen. 


Hausnummern 


Ein Würfelspiel mit dem Computer simuliert. 


Starship VC 20 
Grid-Gummer 28 


Ein tolles Spiel mit viel Action. 


Oil-Panic 


Nur keine Panik!!! 


VC-Pinball 


Vorbei ist die Zeit als Flippern teuer war. 
‚Heute flippt man im Hause mit dem VC-20 


Highway 


Eine Art Frogger, aber total anders konzipiert. 


Apple-Kiste 
Kartenspiel 31 


Man hat uns das erste PASCAL-PGM zugeschickt. 


PET-Bytes 


Adventure Castle 


Ein Spukschloß ist Schauplatz dieses Abenteuers. 


Börsenspiel 


Aktien kaufen und verkaufen und dabei reich werden! 


Station Defender 


Eine Basis ist vor Angreifern zu schützen. 


Texas 99 


Steckerspiel 


Paßt der Stecker oder passt er nicht? 


Spectrum 


Mampfmann 
Einige gefräßgeEsser gegen alle! 


Kleinanzeigen 


Software Leser Service 





Homecomputer hei: 


7.2X-Micro- 
Fair London 


Jede Menge neue Softwarefirmen waren 
auf der 7. ZX Microcomputermesse zu 
sehen. Über 8000 Besucher erschienen 
im Alexandra Pavillion im Norden Lon- 
dons, wo die Messe an einem strahlenden 
Sonntagmorgen ihre Tore öffnete. 


Als wir ankamen, hätten wir uns ans Ende einer 1000- 
köpfigen Schlange stellen können. Väter und Mütter 
nutzten die Gelegenheit, sich mit ihren Söhnen und 
Töchtern über das Hobby Nummer | in England zu 
informieren. Wir konnten aber, nachdem wir mit eini- 
gen Homecomputer-Exemplaren, den Ordnungsdienst 
’bestochen’ hatten sofort in die überfüllte Ausstellungs- 
halle hinein. 


ADULTS £100 
Date 





Der Eingang am Nachmittag, als es etwas ruhiger gewor- 
den war. 


Was darinnen zu sehen war, ist allerdings nur schwer 
zu beschreiben. Massen von Menschen drängten sich 
um die Stände der etwa 140 Aussteller, die Ihre Produk- 
te zur Begutachtung - aber auch zum Sofortkauf - an- 
boten. 

Neue Firmen waren unter anderem Protek, Elephant, 
Electra, Gilsoft und Apocalypse. 

Vortex und Quest stellten ihr Gun Law und The Black 
Hole vor. 

Romik, besonders wegen seiner Commodore und Dra- 
gon-Software bekannt, zeigte seine ersten 4 Spectrum- 
Programme: 3-D-Monster Maze, Colour Clash, Galac- 
tic Trouper und Spectra Smash. 


4 Homecomputer 









f r-% 
60 verschiedene Heim-Computer-Magazine gibt es der- 
zeit in England 


Y 


DK’tronics zeigte Hard- und Software 





Interessierte Beobachter bei East London Robotics, wo 
Spectrums im Schnellservice von 16K auf 48K erweitert 
wurden. 


Auch die anderen 'älteren’ Firmen präsentierten durch- 
weg Neuigkeiten neben Altbewährtem: Artic zeigte 3- 
D-Combat Zone, 3-D-Quadrocube, Cosmic Debris und 
Sys 4 (eine 64-Spalten-Druckputine), Abersoft hatte 
The Wizard’s Warriors, Lothlorien zeigte ein neues 
Kampfspiel, Johnny Reb und PSS zeigten Light Cycle. 


Juli 1983 


Aber auch Hardware war zu sehen und erstehen. East 
London Robotics erweiterte 16K-Spectrums in Minu- 
ten auf 48 KByte. Ein Keyboard für den ZX-81 für um- 
gerechnet 40 DM fand reißenden Absatz. Die Firma, 
die es verkaufte, war schon am Vormittag ausverkauft 
und konnte lediglich Bestellung entgegennehmen, da 
nur noch ein Ansichtsexemplar übrig geblieben war. 
Besonders heiß, lustig und feuchtfröhlich ging es am 
Automata UK Stand zu, wo Hunderte von Flaschen 
Sekt dafür sorgten, daß kein Besucher den Stand durstig 
verließ (einige waren danach auch nicht mehr ganz 
nüchtern). Der Pi-Mann verkaufte seine Pimania- 
Kassetten persönlich und in Anspielung auf die 4 Tage 
später stattfindende Wahl in England zogen die 2 
Automatachefs eine regelrechte Wahlparty (Wähle den 
Pi-Mann) auf. 

Die Microfair insgesamt war ein großes Ereignis, das 
schon im nächsten Monat an anderer Stelle seine 
Wiederholung finden wird. Parallel dazu lief übrigens 
im Londoner Westend eine Apple-Computer-Show, 
was den Stellenwert der Computerbranche in Groß- 
britannien deutlich unterstreicht. 


Ein Blick auf die Menge, die am Sonntagmorgen dem 
Computerhobby frönte. 





—. ER 38 
Wie schon einmal beschrieben, die Inhaber der Software- 
firmen sind durchweg junge dynamische Leute, mit Tat- 
kraft und Ideen. 


N 


Juli 1983 


Homecomputer hei: 
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„und grüßt alle Pimania-Freunde in Deutschland (Chri- 
stian Penfold - der Pi-Mann, der übrigens sehr gut deutsch 
spricht möchte im August in unserem Hause einige neue 
Programme vorstellen. 





Homecomputer 5 


Pssst 


Ultimate 

Robbie Robot als Gärtner. 
Endlich einmal wieder eine neue Spielidee! Diese er- 
freuliche Feststellung ist der erste Eindruck von einem 
in Grafik, Sound und Spielstärke guten Spiel für den 
ZX Spectrum 16 oder 48K. Nach den vielen Spielen, die 
den Weltraum, fremde Galaxien oder Planeten zum 
Schauplatz haben, wieder zurück zu Mutter Erde. 
Daß der Gärtner ein Roboter ist, stört dabei nicht. Was 
spielt sich hier ab? 

Robbie sitzt in seinem Garten und züchtet seine preis- 
gekrönten Blumen. Er hat alle Hände voll zu tun, um 
die gefräßigen Raupen, Bienen und andere Insekten 
davon abzuhalten, seine Pflanzen aufzufressen. Zu 
diesem Zweck ist er mit Spray und Fliegenklatsche be- 
waffnet. Der Lohn seiner Mühe ist eine herrlich erblüh- 
te Blume. Ein unkriegerisches, sehr empfehlenswertes 
Spiel. 


Jumpin Jack 

Sumlock VC 20 o. Erw. 
Ein Spiel mit Fröschen (nicht für Frösche). 
Dutzende Versionen von Frogger-Spielen gibts es mitt- 
lerweile. Die englische Firma Sumlock hat dieses sehr 
beliebte Spiel für den VC 20 in der Grundausstattung 
sehr unterhaltsam und flott gemacht. Dazu gehört unter 
anderem auch die gelungene musikalische Unterma- 
lung. 

Für diejenigen, die das Froschpiel nicht kennen: Zur 
Laichzeit müssen die Frösche eine dicht befahrene 
Autobahn überqueren, eine gefährliche Aktion. 

Der Spieler muß versuchen, jeweils eine Lücke zwi- 
schen den Autos zu erwischen, sonst ... armer Frosch! 
Ist dieses Hindernis überwunden, muß er noch einen 
Fluß überqueren, indem er auf Schiffe und Treibholz 
aufspringt, um zu seinem Laichplatz zu gelangen. 
Sind 5 Frösche am Bestimmungsort, so geht es weiter 
mit 5 anderen, wobei immer mehr Autos in größerer 
Dichte und immer weniger Treibholz dem Frosch das 
(Über-) Leben schwer machen. 

Ein Spiel, nicht nur für Grüne! 


Skramble 


Terminal Software VC-20 o. Erw. 
Fast jeder Hersteller von Computerspielen hat seine 
eigene Version dieses beliebten Spieles im Programm. 
Dieses macht die Wahl für den Käufer nicht gerade ein- 
fach, da die meisten dieser Programme ihre Vorzüge 
und Nachteile haben. Oft drückt sich dies nurin Details 
aus. 

Die Version von Terminal Software erscheint uns, 
obwohl diese Entscheidung nicht leicht war, als eine 
der besten. Dazu trug die dehr gute Grafik, der Sound 
und die flüssige Spielbarkeit bei. 

Skramble: Ein Flugzeug (Raumpgleiter?) überfliegt in 
niedriger Höhe einen Planeten und versucht die ihn 


ZX Spectrum 








The Hobbit 

Melbourne House ZX Spectrum 48K 
Das neue Abenteuerspiel "The Hobbit’ welches die vol- 
len 48K des Spectrum benötigt, basiert auf J.R.R. 
Tolkiens brillanter gleichnamiger Novelle. Diese wird 
als Taschenbuch in englischer Sprache gleich mitgelie- 
fert; leider nur in englischer Sprache muß man sagen. 
Denn dies bedeutet, daß dieses wirklich hervorragende 
Abenteuerspiel, wie die meisten englischsprachigen 
Spiele dieser Art, nur demjenigen offenstehen, der über 
fundierte Englischkentnisse verfügt. 

Deutsche Autoren sind hier aufgerufen, vergleichbare 
Programme in deutscher Sprache zu entwickeln und 
anzubieten! Trotz weiter steigender Beliebtheit dieser 
Gattung von Computerspielen ist das Angebot noch 
sehr gering. 

Doch nun zum Spiel, das wir nur in sehr groben 
Stichpunkten vorstellen können, da die Handlung sehr 
komplex ist. 

Bereits beim Laden wird man durch das Anfangsbild 
auf die guten Grafikmöglichkeiten des Spectrum auf- 
merksam gemacht. Dies setzt sich durch das gesamte 
Programm mit seinen vielfältigen abwechslungsrei- 
chen Szenen fort. 

The Hobbit ist kein Spiel für einige Minuten. Man muß 
schon einige Zeit und Muße investieren. Interessant 
auch für mehrere Spieler, denn die Strategie muß gut 
überlegt sein. Da die meisten Spieler kaum an einem 
Tag fertig werden, ist die Möglichkeit, den aktuellen 
Spielstand zu speichern, sehr von Nutzen. 

Der Spieler schlüpft in die Rolle von Bilbo, dem 
Hobbit. Hobbits, das sind geheimnisvolle Geschöpfe. 
Um ihr Wesen zu verstehen, muß man das Buch gelesen 
haben. Sie sind halb so groß wie Menschen, und kleiner 
als Zwerge, aber haben keine Bärte. Die meisten ande- 
ren Kreaturen die man trifft sind stärker als sie. Manche 
dieser Wesen sind freundlich, manche weniger. Die 
Mission des Spiels ist es, den Drachen zu suchen und 
den von ihm gestohlenen Schatz nach Hause zu brin- 
gen. Weiterhin muß man Thorin finden und ihm 
helfen, damit er während des Spieles nicht getötet wird. 
Adventure-Spiele werden immer stärker und phanta- 
sievoller. The Hobbit ist eines der besten und garan- 
tiert lange Zeit Unterhaltung. 


attackierenden Bodenraketen, sowie Hubschrauber, 
Kraftstofftanks u.a. abzuschießen. Die Szene wechselt 
nach einiger Zeit und man fliegt in ein unterirdisches 
Gewölbe, in dem riesige Spinnen den Gleiter angrei- 
fen. Hat man auch diesen Teil überstanden, kommen 
Feuerbälle mit hoher Geschwindigkeit entgegen, die 
umflogen werden müssen. Danach eine neue Szenerie: 
man überfliegt Hochhäuser einer Stadt, von wo eben- 
falls Raketen abgeschossen werden, und zwischen 
denen man hindurchfliegen muß. 

In jedem Fall viel, viel Action und etwas für Freunde 
dieser Sorte Spiel! 





Dragon 32 - 
ein Familiencomputer nach Maß 


Dragon 





Nach dem Öffnen der Ver- 
packung liegt dem neuen 
Dragonbesitzer ein Hand- 
buch vor, das als erstes 
seiner Artin Deutschland 
als Handbuch zu einem 
Heimcomputer seinen Na- 
men verdient. 


Juli 1983 


Man nimmt den Dragon, 
das Netzteil und das Ver- 
bindungskabel zum Fern- 
seher heraus und schon 
kann's losgehen. 

Wenn er dem Handbuch 
"Programmieren in Basic 
mit dem Dragon 32 folgt, 


wird auch der totale An- 
fänger im Nu zum Pro- 
grammierprofi. Wie bisher 
noch nirgenwo gesehen, 
führt ein Autor - Richard 
Wadman - einen Anwen- 
der, hier den Dragon User, 
in die Feinheiten eines Ge- 


rätes ein. 

Der Dragon 32 hat auf 
den ersten Blick ein ganz 
normales Basic mit allen 
bekannten Befehlen. 
LIST, RUN, NEW, RND, 
CLS, PRINT, GOTO, IN- 
PUT, usw. 


Homecomputer 7 


Dann zeigt der Dragon 
aber, was er noch zusätz- 
lich kann und das ist eine 
ganze Menge. 

Mit SOUND können Ge- 
räusche und Musiken er- 
zeugt werden. 

Obwohl es Diskettenlauf- 
werke schon gibt, wird der 
Heimanwenderbisersich 
in das Gerät richtig ein- 
gearbeitet hat, seinen Dra- 
gon 32 zunächst mit Kas- 
setten betreiben. Die nöti- 
gen Befehle dazu sind vor- 
handen: CSAVE CLOAD 
und SKIPF, was die Kas- 
sette ans Ende des benann- 
ten Programms bringt. 
Besonders hervorzuheben 
ist der Editor. Er sorgt für 
ein komfortables Editie- 
ren. 16 Befehle stehen im 
EDIT-Mode zum Korri- 
gieren zur Verfügung. 
Alle sehr gut durchdacht. 
Man merkt, daß man ei- 
nen Micro der neuen Ge- 
neration vor sich hat. 
RENUM und DEL sind 
weitere Befehle, die an- 
dere Micros dieser Klas- 
se oft erst in teuren Zu- 
satz-Toolkits dem Anwen- 
der zur Verfügung stellen. 
IF THEN ELSE erwartet 
man daher schon beinahe 
als selbstverständlich. 
Ebenso LINE INPUT mit 


gon zu unentbehrlichen 
Werkzeug wird, ganze 
Konstruktionszeichnun- 
gen erstellen. 

Unsere Meinungnach der 
1. Woche mit dem Dragon 
ist äußerst positiv. Wer vor 
der Wahl steht, ein Gerät 
für ca. 1000 Mark anzu- 
schaffen, das er später aus- 
bauen kann, bei dem ein 
Druckerinterface bereits 
vorhanden ist, für den soll- 
te de Dragon 1. Wahl sein. 
In späteren Heften wird 
Homecomputer mit Pro- 
grammen und in Wort & 
Bild weiter über dieses pri- 
ma Gerät berichten. 





kKERERKEBHER 
R Rrretprek 
HB KEN 





PROGRAMMIERANWEISUNGEN 


UND -BEFEHLE 


MATHEMATISCHE UND 
LOGISCHE OPERATOREN 
SYMBOL OPERATION 
Potenzieren 


Multiplikation 
Division 
Addition 
Subtraktion 
Größer als 
Kleiner als 

ist gleich 
ungleich 


ae a Sr 


Vorzeichen minus 


ANWEISUNGEN ZUR TONERZEUGUNG 
PLAY SOUND 


ANWEISUNGEN ZUR STEUERUNG 

DES KASSETTENREKORDERS 

AUDIO CLOSE EOF(-1) OPEN 
CLOAD CSAVE INPUT PRINT 
CLOADM CSAVEM MOTOR SKIPF 


ANWEISUNGEN ZUR STEUERUNG 
DES DRUCKERS 
LLIST OPEN PRINT 


SYSTEMBEFEHLE 
CONT LIST RUN 


dem Kommata und voran- 
gestellte Leerstellen einge- 
stellte Leerstellen einge- 
geben werden können. 

Die bemerkenswertesten 


Größer oder gleich DEL NEW TROFF 


a: Kleiner oder gleich 
NOT Vergleichsoperator NOT EDiT BEL _ TEOM 
GRAFIK-ANWEISUNGEN 


AND Vergleichsoperator AND 
CIRCLE LINE PCOPY PUT 


OR  Vergleichsoperator OR 
COLOR PAINT PMODE RESET 


Eigenschaften des Dragon ANWEISUNGEN IN BASIC 

aber sind seine Grafik- | CLEAR a een 
fähigkeiten. Animation, be- CLS ON...GOSUB 

wegte Bilder in hoher Auf- DATA ON... GOTO STRING-FUNKTIONEN 

lösung sind mit Leichtig- DEF FN POKE ASC INKEYS LEN 
keit zu programmieren. 
Linien zeichnen, Kreise & 


STRINGS 
DEFUSR PRINT CHRS INSTR MIDS STRS 


DIM PRINT TAB HEXS LEFTS RIGHTS 
Ellipsen, diese farbig aus- an nn .. NUMERISCHE FUNKTIONEN 
malen - das alles ist be- FOR TO STEP NEXT READ POINT 
reits fertig als Befehle ein- REM POS 
gebaut. RESTORE m 
Man kann Bildschirmsei- RETURN RND 
ten kopieren (PCOPY) und J STOP EN 
per Joystick,der beim Dra- 


VARPTR 








Adventure 
Castle 


Wie der Titel schon sagt, ein Abenteuer- 
spiel. Für den CBM 3032 geschrieben. 
Das Programm belegt einen Speicher- 
platz von 17KByte. 


Eine ausführliche Spielanleitung befindet sich in den 
Zeilen 4630 - 5830. An dieser Stelle deshalb noch einige 


REM ADY Y‚EHTURE CASTLE 
BEM Er ANDREAS FIDDE 


REM 13 


EFORE E.GP=B+Hl IF 
Ben HINDER 
DATA "C . MEIE". 
zG FOR I 3 
sa READ GES 2 


NEST I 


3 INT s 


"SKELETT" 


SALVEHTURE CAS 
Er OUAPIT" 


THEN 238 
RI: 'MOECHTEN SIE DIE 
PRIHTON"SPC 5 LES 
GET As IFAS= 
IF As="I"THEN & 
As="h" THEN 


D2} 





Dr 





IT ha En a re 
= 





INT Rtaeae SE 23 "WIEVIEL SPIELER ? 
A ALEAR» 


Angaben zum Programm im Einzelnen: 

In den Zeilen 50-90 befindet sich die Maschinenspa- 
cheroutine zur Invertierung des Bildschirmes, die Zei- 
len 150-310 beinhalten die Anfangsgrafik und hier wird 
nach der Spielerzahl gefragt. Das Setzen der Variablen 
geschieht in den Zeilen 320-850. Danach folgt (860-970) 
die Initialisierung des Bildschirmes. Abfrage, in wel- 
chen Raum der Spieler gehen möchte findet in 980-1440 
statt: In den Zeilen 1450-2620 wird überprüft, ob der 
Spieler auf ein Hindernis, bzw. das Opfer oder den 
Schatz gestoßen ist. Neuinitialisierung des Bildschir- 
mes in 2630-2740, Punktegebung in 2750-3140. Ver- 
schiedene Grafiken und die Bildschirmumrandung in 
den Zeilen 3210-4620, bzw. 5840-5940. 


‚r72.128.145.1. 209.208 39,2.163 


21-97" 





2,1 OPFER 














549 IFA=Gi1)ORA=SGCEIORA=5C3) THENSS 
550 Yıld=h 
EE> GoTı 37 
S’o EEM VAMPIR = 
En IFA=G% 1 >ORA=SGCEIORA=SGETIORA=YELITHENISO 
329 WEzI=A 
Tas 5078 Sr 
518 REM FALLGRUBE 
s20 En GEL SORASGEEIORASGESIORA=T SORRY ÜSSORACSORASSORA=13THENSSE 
=R 
549 C0T0 378 
E50 REM SCHATZ 
5 IFA=52 LIORA=SGCEIORA=SGE SIORA=YELSORA=YÜEDORASFTHEHZSE 
€ 5=A 
ss S0TG 370 
530 REM OPFER 
rag IFA=621DORA=SGCEIORA=GSIORA=YELIORA=SVÜZIORA=FTHENSSE 
719 IFA=STHENSSA 
729 (ef 
39 REM GEAFHIK 
740 REM TUER RECHTS 
sa Tf=") 7 6 fe fe mu BB: 1 3 1: 1 63 FT Be 


7<se REM STAHGE 2 2 
BIS EI Mayetkareleslfelfelsucslfraffeapfeaftrsugrsginange: 
Se REM TUER OBER 
sa Tif="_____HERIBEN — 17) SeIBBEREar Bar Er." 
508 REM TUER UNTEN 
a1 TEF=" TI IE ET  " 

MAEHF 


BE I "ERRI FER -SEml T |  " 

a REM TUER HINTEN 

© T3#=" 7 TB TB TED N" 

8 REM HAUFTFROGRANMM 

2 PRI HT"IN: =1 50SUE 145 

06 RB: GÜSUP Dog GOSUE >20 60 5 : DE $="aa009a" 

ar FIT" BTeIeRTEINEDEIEITRNTSTEILEIT" SEC 143 
5a FRIMT" SISIRIRINISIMTSIRIEISISTRISIREIRTeN" SPC: 3 
116 RETURN 
2 »;T1$ RETURH 

#:RETURH 


RETURN 
3 SEIEIT SEO" SFC 13) 
RETUR 
230 SEN DEHEN 
239 PRINT" AR 
1809 IF VAL 


UEi1ZE GOTOL13E 


ZURUECK“ A" BOT 126 


» "RETURN 


ICRSR-Dum 
RSR-Le[t 
Mittektech 
RahslabeT 


























IF HR 
3 RETUEN 
3 REM GEIST 





S:REM WIN 
* THEM 1319 


yıızn 


28) "ZURUECK 15" 


+4ANDHL>R-4THEN1 430 


ERIHTTSECESG2: GOSUB 1120°GOTO 1419 
REM ZUTEILUNG ENDE 
REM U-F UEBERPRUEFEN 


R=F THEN 3 140 


PR u 4ara'J=1 GOSLUE 1570 0072 1459 


3160 
558 RETURN 
= 79 za HEHT DRETURN 
:KELETT 
J=2'FRINT" TIeslelsteleleleteintel"  GOSLUE 3 GOSUE 1576 GOSUE 
REM ZOMBIE 
ERLIT \J=2' 


EISYNSEIH "asizıe I 
Map: ZANEI! EMLIGER." 
he NERFÄLLTER" 


H ; 3" en TIL NVPMFIR 
FRIHTURE"S 
AF=CHRECIMT 
IF üi=1 THEN Es 
=259 
or Tel IE on 
ERI: mm "5 


FRIHTUR 





























FRINT"EROORCH": 





THENGOSURZO4S SOoTO28E8 
zaEa 


2I=GC13 IR Werdeßl THEHGOSLFZEHE GOTGZI1E 
0 OR Yie)=F T4EN COsuR 2048 ;oTI 2118 


3 FOR un jsre 13 


FRINT"TT'SPC{12>"EINE FALLGRUBE !" 
FOR D=1 TO 100:HEHT D 
Erg FC{122" SEINE FALLGRUBE !@" 
=i TO 198° HEXTD 
2 J 
REM GRAPHIK 
PRINT 


a PRINTSPCLIFN:ME 
a FOR U=1 TO 4a FRINT"®" HERT U 
a FÜR D=1 TO SO NEXT OD 


FRINT"TT'SPEX1S2: 

FOR U=s1 TO 1 F "IHENRT U 
FRINT"SIIE"SPC 

FOR U=1 TO 18 ERTUTT TITTEN ;1; 
FOR D=i TO 109: NEXT I 

HEHT U 


NEST DO 


4:FRINT"DL BIST IM RAUM"SR 
GOSUE nn 
GOTO 1456 
FOR D= -1 To 12ENERT OD 
E& 
j FihDE SCH 


PRIHT" Sram 
Z GEFUNDEN I" 


'=1 TO 
reine ı 


3 BRIHTURIE HERAUSKMMET 


"HT ZU FRUEH, LU MUSST" 
et 'E 1 
56T 1452 
SEM MEU MALEN 
IHT" 


E 
HTWS KANAREN" 
SOSUE 3% 














FRINT"3":SFCO1 45, " Meleindel BESTREITEN |" GOTT 2 
SOZUR Pac GOSUE 9sa GOSUE >20 GÜOSUR 339 GOSUR 948 


A er 
varcripnS 15 
100 


a 
a =4g: 
3 FRINT"MDL BEKOMIST" Pia 
IF ZE=& THEN 2208 
ZE=£E 
FRINT"MDU HAST DIR DABEI ZUSAETZLICH EINEN" 
FRIHT"REEITEONUS EINGEHEIMST !" 
GoTo Sa 
FRINT" uU DIENST DEN u REH ALS ABENDEROT !" 
FRINT"MSCHADE. DU T. MIR RICHTIG LEID !" 
FRINT"NOL BEKOMMST 8 PUHKTE," 
ea: 


a GOSUB 1853 
REM FUHKTE 
FRINT"TIelntieleisisiel"  GOSLIE Z488 
PRIHTFS" 
FRINT"FUHKTE INSGESAMT ! MN" 
FOR U=1 TO 536 
PRINTOMTSPCCISN "SPIELER BUT BELSTPUHKTE, " 
NEST 
eg 1550 G05UB 1559 
IF 59=>SP+1 THEN PRINT"M"SPC{1SD"SPIELER"SP+L"IST ERAN I" GSOSUB 1550 

30520 SP=35P+1 IF SP=56+1 THENSSTO 
0 GOTOSEO 

FRINT"THOCH EINE RUNDE 7 XI.’ Ho" 
GET A$ IF A%="" THEN 2958 
IF A$="J"THEN 3126 
IF A&="N"THEN PRINT"TI" END 
GOTO >92 
FOR TO SF 
RAUS=FEUD Fil=0 
HEHT u 

4 GOTG 

ü REM geıs ER HEUVERTEILUNG 














ür A=Gi3: THEN 3178 
OR A=5 OR A=0 OR Ask OR A=F THEN 317 


Gi Ti=A 
RETUFH 

a REM RAUM 
FRIMT" 
PRIET" 
a ERINT" 
a PRINT" 
PRINT" 
& FRIHT" 
PRIHT" 
PRINT" 
3318 PRINT" 
4 FRIHT" 
PRINT" 
FRINT" 
PRINT" 
FRIHT" 
FRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRINT" 
PRIHT" 
FRINT" 
59 PRINT" 




















BELSRELR ARE Lupnun 


ERINT" 
FRINT" 


BRINTe 
FRINT" 
PRINT" 


A RETURN 


REM SCHATZ 
FRIHT TAB&1 


ı FRINT TABi1 
a PRINT TAB(1 
& FRINT \ 


FRINT 
PRIHT 
FRINT 
FRINT 
FEINT 
FEIMT Ti rt 
FRINT 
FRINT TAB“ 
FRIST 
FRIHT 
PRINT TI 
RETURN 


PRINT" 
RETUR 

REM SKELETT 
PRINT" 
PRINT" 
ERINT" 
PRINT" 
FEINT" 
ERIHT" _ 
ERINT" 4 
PRINT" 
FRINT" 
FRIHT" 1 
PRINT" 1 
FRINT" ol 
ERINT" 


ERIHT 
PRINT" 


ar" 
an" 
a)" 


a" 
19) 
a)" 


ww 


; " 
p" 
Ei 


u." 














IT" 
RETURH 
REM GEIST 
FRIHT" 
PRINT" 
ERINT" 
PRINT" 
ERINT" 
BRINT" 
BRINT" 








ERINT" 
ERIHT" 
PRINT" 
PRINT" 
FRINT" 








2» 
FÜR gel TO 28 
HEFT U 
HEHT I 
RETURN 
BEM ANLEITUNG 
4 GOSUE SSER 
SRIHT" SIR 
7a FRINT"M 
sa PRINT" DU BIST VWERREIST UND LANDEST EIMES" 
@ FRINT"W ABENDS IH EIHEM KLEINEN IDCRF IH DEN" 
ea FEINT"M KARPATEN. U KEHRST IH EINEN YER-" 
a FRINT"M TRAEUMTEN ( SASTHOF EIN UND DABEI" 
:4 PRIHT"M ERFAEHRST DU. DASS DIE TOCHTER DES" 
739 FEINT"N HIRTES AM 1 ABEHD ZUWOR voN EINEM" 
A PRINT" YAMPIR AUF DESSEN SCHLOSS ENTFUEHRT" 
g FRIHT"W KURDE. " 
FEIHT"M DU <ALS MUTIGER HELD ERKLAERST DICH" 
FEINT"M HATUERLICH SOFORT BEREIT. DAS OFFER" 
Sa PRINT"MI ZU BEFREIEN. DAZU ERICHST DU HOCH IM" 
4 FEIHT"W DERSELBEN NACHT ZUM GEHEIMNHISYOLLEH" 
PRINT SCHLOSS AUF. UHD NUN PASS AUF EIN" 
ALTER DORFBENOHHER GIET DIR NOCH EIN" 
FAAR HLETZLICHE RATSCHLAEGE MIT AUF" 
x DEN WEG." 
GOSUR S27E 








ZUERST ETWAS UEBER DEM AUFBAU DES" 
PRINT"M SCHLOS 
SEINT"ME DAS SCHLOSS BESTEHT AUS YIER ETAGEN" 
“9 MIT JEHEILS YIER FAEUMEN SOWIE DEM" 
NT" DACHRAUM SIEBZEHN. " 
PRINT DIE FAEUME SIND VON EINS EIS SIEBZEHN" 




















SERDEN SIND DIE RAEUME i gm 9.13.17" 
CH EINE STRAHGE VERBUNDEN. 


1 urz LU GEHST - DEIN BL 
m DIE RAEUME, IM DIE DU 
INT" WERDEN DIR Yon DEINEM "KOMPASS". DE 
INT COMPUTER. GEMELDET." 
T HH DU AUS IRGENDEINEM GRUND IH DEM" 
RAUM ELEIBEN Be IM WELCHEM Di " 
!T"a GERADE BIST. KANNST DU NATUERLICH" 
IT" AUCH DESSEH NUMPER EIHGEBEN. " 
‚IKT MACHDEN DU DIE GEWUENSCHTE RAUMNUMMER" 
!T"ıl EINGEGEBEN HAST, MUSST DU 9 RETURN @" 
FRINT"M DRUECKEN. DAMIT DEIN CEM WEISS, DASS" 
FRINHT"M ES WEITERGEHT." 
PRINT" LEBRIGENS® DU STEHST IMMER IN DER" 


'ı FRIHT"SI TUER MIT DER NIEDRIGSTEN RAUMNUMMER, " 


FRIHT"S DEMENTSPRECHEND IST AUCH DEIN ELICK-" 
P a. en 
IE 5 


rt FRINT a DEINE GEGNER - DIE YAMFIRE :" 


FRIHT"MEBI ES SIND DEREN ZWEI." 

FRINT"MM ICH GEBE DIR EIN KREUZ MIT. MIT DEM" 
INT" DU SIE YERSCHEUCHEN KANNST." 

FRINT"EII UM DAS KREUZ AUS DEINER TASCHE ZU" 

FRIHT"M ZI N. MUSST DU EINE EUCHSTABENTASTE" 

PSRIHT"M DRUECKEN. DIE DURCH ZUFALL ERMITTELT" 

FRINT"M WIRD. 

PRINT" DRUECKST Du ZU SFAET ODER EINE FAL-" 

PRINT" SCHE TASTE, 30 IST’S UM DICH GESCHE-" 

SRIKT"M HEN." 


Sg PRINT" NACHDEM DU DAS OFFER GEFUNDEN HAST." 


san 
pe] 


HT" MUSST IU HOCH SCHNELLER REAGIEREN. " 


S360 
BMIHINDERNISSE :" 


FRINT"MMI ALS HINDERNISSE FUNGIEREN EINE" 


a 


PRINT" FALLGRUBE UHD DREI HÜRRORGESTALTEN. " 
FRINT"EM DIE FALLGRUBE BEFOERDERT DICH EINE" 
FEINT"MM ETAGE NACH UNTEN.” 


19 PRINT" DIE HORRORGESTALTEN SIND HARMLOS UND" 
3 FRINT"M ERSCHRECKEN DICH HUR. DAMIT DU WEG-" 


FRINT"EM LAEUFST." 

FRINT"EBI SIE SELEST LAUFEN IN EINEN ANDEREN" 

FREINT"EM RAUM. NACHDEM DU SIE ENTDECKT HAST." 
SUR S370 

SOSUR SSeH 

FRINT''IFUNKTE :" 

FRINT"MSM IM SCHLOSS LIEGT EIN SCHATZ BEGRABEN: " 

FFINT"M ER ZAEHLT “GENAU WIE DAS GERETTETE" 

FREIHT"M OPFER? ZMEI PUNKTE." 

FRINT"MM ZUSRETZLICH GIET ES BONUSPUNKTE FUER" 

FRINT"M EINE SCHNELLE RETTUNG. " 

FRIHT"MM DIE FUNKTE EINER NEUEN RUNDE WERDEN" 


* FEINHT"M MIT DEHEN DER ALTEN ADDIERT." 


FEINT"EMI WEHH Iu DIE ZEIT UVERERZIEHST ODER WON" 
FRIHT"M EINEM VAMPIR AUSGESAUGT WIRST." 
FRI T"M ERHAELST DU KEINEN PUNKT." 

2& 


SRIHT" IE DU HAST GENAU FUENF MINUTEN ZEIT. UM" 
FRINT"MI DAS OFFER ZU ERRETTEN. " 


' FRINT"ERBI DEHH NACH FUENF MINUTEN WIRST DU Yon" 






































3 
I 
3 





:IHT'zBl EINEM 
"eu IM 










"lei I 
KT"M YERLI 
INT" HE 
INT" MU 
FRINT"I DU ! 














MEN. IH RAUM" 
} INS FREIE ZU" 
"INT" GELAHL 

Kalle) TER] 





EEGINN DES SFIELS" 
WIEDERHOLUNG DER ANLEITUNG" 







TUFH 
" IHT" SIeleleleIe[eteaieteinie[eteIsteisinteleteie— - -— WEITER DURCH > 
ET A$ 

F At=" " THEN RETURN 

GOoTo 5250 























Apfelbaum 


Für den ZX-81+16K 


Das Programm druckt auf 
den Bildschirm einen Ap- 
felbaum, den Erdboden, 
zufallsgesteuert zu Boden 
fallende Apfel und einen 
Auffangkorb. 

Dieser Korb kann mit den 
Cursorsteuertasten 5 + 8 
nach links und rechts be- 
wegt werden, um die Ap- 


10 REM 
15 rR 

20 PRINT 
30 PRINT 


Pen 
808 PRINT 
PRINT 


PRINT 


PRINT 


FOR I 1® 
PRINT RAT 
AN 


fel aufzufangen. 

Am Schluß wird die An- 
zahl der gefangenen Ap- 
fel angezeigt. Es fallen ins- 
gesamt 20 Apfel (veränder- 
bar in der Zeile 520) vom 
Baum. Dieses Spiel macht 
insbesondere dem kleine- 
ren Bruder Spaß! 


PFELBRAUM 
EM ANZAHL AEPFEL ZEILE 5 


To 208 
ED“ 


19,0 











ZX ärgere Dich 
nicht 


Das Spiel ist dem bekannten Würfelspiel 
nachempfunden worden. Wegen der Be- 
kanntkeit der Regeln dürfte sich jeder 
Kommentar dazu erübrigen. Die Führung 
durch das Spiel durch den ZX-81 ist 
ebenfalls sehr gut und somit kann man 
nur viel Spaß beim Spiel wünschen. 


1:23] BpreLros 
A=2+INT (RND+28) 
B-®© 
PRINT AT K2,KL "iu 
> LET DISP=PEEK {(PFEK 1H23965 + 
«PEEK 16397) + (B) «33 +HHA +1) 
REM PRINT AT 198,16;DIspP;” 
PRINT AT_B,R;" 


B8=B+1 
B8-1, En Leues, DISP 


ITION Anrarı 


{7} 


1) 


PU 


Q 
B8HHEH-HFNHNHHRS 


PR INT, 


Ii=RA-2 OR Ki=n 


+1 
LET AEPFEL=SAEPFEL+ 
BE REPFEL <2® EHEN Soro 302 
E 


FE ai ‚SBIELENDE Ey 

2. A' 

=®a OR P>i THEen’ PRINT "E 
"PFEL GEFANGEN 


-ANNNNNONNAPRER 
NUPONP HONAU 


N 
8 


PRINT 





KRKKKKKKKKKRKKEHEK 
* MENSCH AERGERE « 
% ‘DICH NICHT *. 
KRERKKEKKKKKRK KK 
>EIN SPIELER GEGEN 
>DEN SINCLAIR 2X81 








PRINT AT 21,@;"DRUECK ZUM W 
VERFELN EINE TASTE." 
435. LET CO=1 
438 PRINT AT 8,29;" 
44B LET I=INT (RND*6)+1 
45@ IF INKEY$="" THEN GOTO 44 
455 PRINT AT 12,245" " 
46 LET J=J+1 
47d PRINT AT 8,245"EINE "51 
48@ IF K=1 THEN IF I%>6 THEN IF 
J<3 THEN GOTO Sp 
498 GOTO. 54f 
5@f PRINT AT 12,24; "NOCHMAL." 
53@ GOTO 44f 
57@ IF I-6 THEN GOTO 88ß 
58@ IF K=1 THEN IF J=3°THEN GOT 
0 195% 
59@ sLau 
6eF PRINT AT 21,@5"WELCHEN STEI 
N SETZT DU’WEITER? 
62 INPUT N 
IF N>4 THEN GOTO 62# 
IF N=f THEN GOTO 49ßf 
IFA Me THEN GOTO 615 
IF A(N)+I»44 THEN GOTO 615 
FOR M=1 TO 4 
IF A(N)+I=A(M) THEN GOTO 61 





NEXT 
FOR U=1 TO 4 
IF a THEN GOTO 74$ 
IF A(U)=1 THEN GOTO 76g 
Ü NEXT-U 
# coTo 833g 

FOR M=1 TO 4 

IF A(U)+I=A(M) THEN GOTO 83 








NEXT 


782 FOR M=1 TO 4 

784 IF A(M)=ß THEN GOTO 79g 
786 NEXT M 

788 GOTO 83@ 

799 PRINT AT 21,5" 


" 

Sy PRINT AT 21,9; "ERST-STEIN.N 
Ra"; U; "BETZEN." 

817 SLOW 

815 FOR N=f TO 5f, 

829 NEXT N 

825 GOTO 600 

83Q IF A(N)+1441 THEN GOSUB 346 


849 GosuB 52Yg 

85 LET A(N)=A(N)+I 

855 IF FI=1 THEN GOSUB 3385 

858 IF A(N)>4ß THEN IF A(N)-Ica 
1 THEN GOTO 381g 

869 IF I=6 THEN GOTO 4pg 

87% GoTo 1f5g 

890 LET K=2 

999 FOR N=1 TO 4 

91Z IF A(N)=B THEN GOTO 94% 
929 NEXT N 

93% Gs0Tg 59% 

949 FOR M=1 TO 4A 

95% IF A(Mm)=1 THEN GOTO 594 
96@ NEXT Mm 

977 SLOW 

98% PRINT AT 21,@;"WELCHEN STEI 
N SETZT DU EIN? " 

99% INPUT N 

9933 IF N>4 OR N<1‘THEN GOTO '99ß, 
1dyd IF A(N)s>@ THEN GOTO 99 
11 LET A(Nn)=-5 

192% GosuB 316f 

1925 LET A(n)=1 

103% Gosus 51ff 

1935 IF FI=1 THEN GOSUB 335 
1a GoTo apg 

195% LET Co=2 

196% SLOW 

107 PRINT AT 21,4;" 

";SAT 5,195"1 

CH WUERFLE" 
198% LET F=f 
199% LET I=INT (RND#6)+1 

119% PRINT AT 8,24;"EINE ";CHRZ 
(14156) 
111Q LET F=F+1 
112@ IF G=1 THEN IF I&>6 THEN IF 
F<3 THEN GOTO 1148 
1139 GOTO 119% 
1149 PRINT AT 14,245; "NOCHMAL. 
115Q FOR n=$ To 3f 
116% NEXT. N 





PRINT AT 14,245" 

Goro 189% 

FOR P=ß TO 5#% 

EXT P 

PRINT AT 5,195" " 
IF I=6 THEN GOTO 122% 

IF G=1 THEN IF F=3 THEN GOT 


$ 

121g GorTo 1381 
122f LET G=2 
123$ FOR N=1 TO 4 
1248 IF B(N)=f THEN GOTO 127% 
1258 NEXT N 
126 GOTO 138% 
1278 FOR M=1' TO 4 
1288 IF D(M)=21 THEN GOTO -138{ 
129f NEXT Mm 
1318 PRINT AT 21,@;"ICH SETZE ST 
EIN "5CHR& (N+156);" EIN. 

" 





132 LET et 
133 LET D(N)=21 
1335 GOSUB 333g 
GosuB 55#% 
IF FI=1 THEN GOSUB 339g 
GoTo 15 
f FAST 
FOR N=1 TO 4 
IF D(N)=21 THEN GOTO 142 
EXT N 
G0To 148% 
FOR M=1 TO 4° 
IF D(N)+I=D(M) THEN GOTO’14 


NEXT M 

FOR M=1 TO 4 

IF B(M)=f THEN GOTO 145$ 
EXT Mm 

GOTO 148% 

LET a... 

LET D(N)=D(N)+I 

GOTO apfp 

FOR N=1 TD.4 

IF D(N)+I>6@ THEN IF D(N)+1 
«65 THEN GOTQ 152% 

VEXT N 

GOTO 158% 

FOR M=1 TO 4 

IF D(N)+I=D{M) THEN GOTO 15 








Ä'NEXT Mm 
155@ LET B(N)=B(N)+1 
1568 LET D(N)=D(N)+I 
1578 GoTo a2pßf 


1588 FOR .N=1 TO 4 

1598 IF B(N)=$ THEN G0TO 166% 
16ff IF D(N)>6A OR D(N)+I>60 THE 
N GOTO 166 . 

161 LET V=B(N)+I 

162f IF V>4ß THEN LET V=V-4fß 
163 FOR M=1 TO 4 

IF A(M)<41 THEN IF A(M)=V T 
GCTo 1718 

"NEXT -M 

NEXT N 

GOTO 1748 

LET Ile 
LET D(N)=D(N)+I 

ccTo afpg 

FOR N=1 TO 4 

LET Z=N 

IF D(N)>6ß THEN GOTO 181g 
FOR M=1 TO 4 

IF D(M)>6f THEN GOTO 179ß 
IF D(N)<D(M) THEN GOTO 181P 
NEXT M 

GoTo 182% 

NEXT.N 

IF B(N)=f THEN GOTO 22 

IF D(N)+I»64 THEN GOTO 22 
FOR M=1 TO 4 ’ 

IF D(N)+I=D(M) THEN GOTO 22 





NEXT M 

LET V=B(N)#I 

IF V»4f THEN LET V=V-4ß 

IF D(N)=41 THEN GOTO 193% 

Ä FOR M=-1 TO 4 

IF ae THEN GOTO 188 

IF B(N)J$=A(M)+1 THEN IF B(N 
)<=A(M)+5 THEN GOTO 193% 
1886: NEXT Mm 
1885 IF D(N)+I=41 THEN GOTO 22AB 
189 FOR M=1 TO 4 
F A(M)=ß THEN GOTO: 191f 
F V>=A(M)+1 THEN IF V@=A(M 
EN GOTO 22ff 
NEXT M 
LET B(N)=V 
LET D(N)=D(N)+I 
oTo aß 
OR P=1 To 1f 
LET N=INT (RNDx4)+1 
F N=Z THEN GOTO 223f 
F B(N)s»f THEN IF D(N)+IC6 
G0To 225% 
EXT P 
2249 GoTo 233% 











2448 
245% 
246% 
2478 


-LET V=B(N)+I 


F V>4ß THEN LET V=V-4ß 
OR 0=1 TOD 4 
F D(N)+I=D(0) THEN GQTO 22 


HnHm 


= 


EXT O 

ET ee 
ET D(N)=D(N)+1 

oTo App 

OR N=1 TO 4 

F B(N)e>f THEN IF D(N)+I&6 
GoTo 237% 

EXT N 
GOTO 246% 

FOR M=1 TOD 4 

IF D(N)+I=D(M) THEN GOTO 23 


Hnont 





EXT ‘ jeaaiiy 
N)=B(N)+I 
\)>4ß THEN LET B(N)=B( 








LET D(N)=D(N)+1 

GoTo Apßpfg 

FOR N=1 TO 4 

IF D(N)>=21 THEN IF D(N)&61 


THEN GOTO 267 


2488 
249 


25@% 


251% 
252# 


IF D(N)<rf THEN LET X=X+1 

EXT 

FOR N=1 TO 4 

IF. D(N)=64 THEN GOTO 254% 

\EXT 

GOTO 267f 

IF X=1 THEN GDTO 264% 

FOR N=1 TO 4 

IF D(N)=63 THEN GOTO 259% 

EXT N 

GOTO 267f 

IF X=2 THEN GOTO 2644 

FOR-N=1 TO 4 

IF D(N)=62 THEN GOTO 264f 

EXT 

GOTO 267% 

LET X=f 

LET G=1 

SLOW 

GOTO 1149 

SLOW 

PRINT AT 21,@;"ICH KANN NIC 
" 











HT SETZEN. 


2698 
27p 
271% 
272% 
273% 
276% 
2765 
2778 
THEN 
2784 


LET xX=f 

FOR N=f TO 3g 

NEXT N 

IF I=6 THEN GOTO 1f@5ß 
GOTO app . 

IF I=6 THEN GOTO 4pßg 

FOR N=1 TO 4 

IF A(N)>=1 THEN IF -A(N)<41 
GOTO 299g 

IF A(N)e»f THEN LET X=X+1. 


279 NEXT N 
28@f FOR N=1 TO 4 
2818 IF A(N)=44 THEN GOTO 284f 
282@ NEXT N 
283 GOTD 299% 
284f IF X=1 THEN GOTO 294ß 
285@ FOR N=1 TO 4 
286ß IF A(N)=43 THEN GOTO' 289% 
287 NEXT N 
288% GOTO 299f 
2898 IF X=2 THEN GOTO 294 
29ff FOR N=1 TO 4 
291f IF A(N)=42 THEN GOTO 294% 
292 NEXT N 
293ß GoTO 299f 
294 LET X=f 
295 LET K=1 
2989 GOTO Aig 
299 LET. X=f 
sfßf coro 1f5Y 
sß5Sf FOR 0=1 TO 4 
sßef IF A(0)<41 THEN GOTO 3fßop 
3f7f NEXT O 
sfsß GoTo 313% 
311f IF I=6 THEN GOTO App 
3128 corto 1f5f 
3145 PRINT AT 21,9;"&xDU HAST GE 
VWONNEN.** u 
3158 GoTo spp 
316 FOR M=1 TO 4 
3178 IF D(M)<61 THEN IF A(N)+I=B 
(M) THEN GOTO 32A@ß 
3184 NEXT Mm 
319 RETURN 
3265 PRINT AT 21,85" 
" 





321 PRINT AT 21,f5"DU SCHLAEGST 
STEIN NR."SCHRE (M+156) 5" 
" 


322# FOR P=f TO 3% 
323 NEXT P 
3233 LET FI=1 
324@ LET Bm 
325 LET D(M)=f 

326ß FOR P=1 TO 4 

3278 IF B(P)<>@ THEN GOTO 3295 
328 NEXT P 

329f LET 6=1 

3295 LET MU=M 

33@f RETURN 

33ß5 LET X(2,MU)=2&(MU=3 OR MU=4 


) 

33@ß8 LET FI=ß 

331 LET Y(2,MU)=18%&(MU=1 OR MU= 
3)+2f&(MU=2 OR MU=4) 

3315 PRINT AT X(2,MU),Y(2,MU);CH 
R& (MU+156) 

332 RETURN 

3336 FOR M=1 TO 4 





334 IF A(M)<a1:THEN IF A(M)=B(N 
) THEN GOTO 337% 
335 NEXT M 

336# RETURN 

337£ FOR &=f TO 3 
3371 NEXT O 

3373 PRINT AT 21,05" 
3374 PRINT AT 21,@;"ICH SCHLAGE 
STEIN NR."ts;Mz;t 27 

3375 LET FI=1 

3378 LET MU=M 

338 RETURN 

339@ LET FI=f 

3395 LET A(MU)=f 

34ff LET X(1,MU)=18%&(MU=1 OR MU= 
2)+2@&(MU=3 OR MU=4) 

341ß LET Y(1,MU)=2%&(MU=2 OR MU=4 


3428 PRINT AT X(1,MU),Y(1,MU) ;mu 
3425 FOR N=1 T0 4 

3426 IF A(N)<>@ THEN RETURN 

3427 NEXT N 

343ß LET K=1 

345@ RETURN 

agıf SLOW 

4ß2ß PRINT AT 21,@;"ICH SETZE ST 


EIN NR."SCHRE (N+156)5" WEITER. 
" 


4aß3ß IF D(N)<61 THEN GOSUB 333% 

aßapß cosuB 52%A 

4aß5ß IF FI=1 THEN GOSUB 339g 

4ß6f IF I=6 THEN GoTO 1fsf 

aArB GoTo app 

42ßß IF D(N)-I>6ß THEN GOTO Appf 

4218 SLOW 

422 PRINT AT 21,A;"ICH SETZE ST 

EIN NR."SCHR3 (N+156);" WEITER. 
" 


GosuB 52J@f 

FOR N=1 TO 4 

IF D(N)C61 THEN GOTO. 428f 

NEXT N 

GOTO 432 

IF I=6 THEN GOTO 1f5% 

GoTo 4pßf 

PRINT AT 21,@;"%&&ICH HABE G 
EWONNEN.*% a 
4338 GoTo spp 

FOR T=1 TO 4 

PRINT TAB 8;"pM1; TAB 125 "gg" 

PRINT 

NEXT T 

RETURN _ 

GOSUBF 4500 


PRINT WpmmRkmamm 





4578 PRINT AT 2,1ß;"x";AT 4, 
aTsAT 6,1ß; "an; AT 1a,1ß; tat; 
16,1f; "a"; AT 18, 1f; "sat If 


;TiNsAT 18,25 "2"; AT 2f,A;"3";AT 
28,2;"a" 

4588 PRINT AT 2, mM BOmEZ «x 
mamm em 
4585 PRINT 
459% GOSUB 
a6ßf LET 
461% LET 
4624 LET 
463% 

464% 

465 


N 
= 
ao 


U 
NNW- 
as 0 


1l 


P£UDND-RUND-SPUND-RUMN-O 
Ü 


r AL IIIAIININI LO) 
l 


D-D-.DDBRBSDSsNDıa 


Du | Bu | us | a | Da | Bus 1 Bu Eu Ba LI |] 





481f_PRINT ,„,"DU BENDETIGST KEIN 
SPIELBRETT, ICH ZEICHNE -EI 
SPIELPLAN AUF DEN BILDSCHIRM, 
BENUTZT DIE STEINE LINKS U 
‚„ ICH NEHME DIE SCHWARZEN." 
482 PRINT "WENN KEIN ZUG MOE 
CH IST, DANNTEILE MIR DAS DUR 
EINGABE DER ""genm mIT. SCHUM 
KANNST DU NICHT, ICH UEBERPR 
VEFE ALLE DEI-NE EINGABEN." 

4830 PRINT AT 15,5; "VIEL _GLÜECK" 
;AT 18,f;"DRUECK EINE TASTE." 
485@ PAUSE 4E4 

4855 POKE 16437,255 

486f CLS 

487 GoTO 455g 

49ßß FOR N=1 TO 4_ 

491f IF A(N)=B OR A(N)+I>44 THEN 
GOTO 493% 

492ß GoTo 495g 

293ß NEXT N 

494 GOTO 276% 

495# FOR M=1 TO 4 


a IF A(N)+I=A(M) THEN GOTO 49 
3 








EXT M 
RINT AT 21,9;"DU KANNST_SE 
n 


IxXQ 


SAH 
NT AT X(I,N),YCT,N) z gg 
X(1,N)=2% 
Y(1,N)=8 
NF AT KÜI,N),Y(I,ND ZN 
TURN 
NT AT X(CO,N),Y(CO,N)5CH 
Rd (8+15%8(C0O=1 AND A(N)>4f OR co 
=2 AND D(N)-I>6ß 
521@ LET X1=A(N)&(CO=1)+(B(N)-I) 
*(C0=2 AND B(N)-I>=1)+(D(N)-I)*( 
C0=2 AND B(N)-I&1) i 
5238 FOR M=1 TO I 
524 LET X(CO,N)=X(C0,N)+2%(X1>= 
21 AND X1<25 OR X1=29 OR Xi=3ß 0 
R X1»=35 AND X1<39 OR X1>=2@ AND 
D(N)>=6ß AND CO=2)-2%(X1>=1 AND 
X1<5.0R X1=9 OR X1=1ß OR X1>=15 
AND X1<19 OR X1>=4f "AND CO=1) 
525@ LET Y(CO,N)=Y(CO,N)+2&(X1=1 
9 OR X1=2# AND CO=1 OR X1>=25 AN 
D X1£29 OR X1>=11 AND X1&15)-2%( 





-2mzımmzaomo 
41-43 








N 


x1>=31 AND X1£35 OR X1=39 OR X1= 

4ß AND CO=2 OR X1>=5 AND X1&9) 

5255 LET X1=X1+1 

5257 IF X1>=41 THEN If CO=2 THEN 
LET X1=X1-4% 

526$ NEXT M 

5278 PRINT AT X(CO,N),Y(CO,N);CH 
rg (ne2B=12an (LO) 

528 RETURN 

S5@f PRINT AT X(2,N),Y(2,N); "gg 

551@ LET N =f 

552@ LET Y(2,N)=12 

553% PRINT AT X(2,N),Y(2,N)5CHRZ 
(N+156) 

554@ RETURN 


ES 
UN 





81ff REM 1983 
82ff NORBERT HOHM 


ANMERKUNG: Das Zeichen "MM! be- 
deutet CHRZ 8. 


NIHNIDYZZ 


EXPLORING SPECTRUM BASIC £4.95 An ideal complement to the Sinclair manual. Over 50 games, application & utility programs 


plus explanations of programming techniques. Mike Lord. 192 pages. 
THE EXPLORERS GUIDE TO THE ZX81 £4.95 The book for the ZX81 enthusiast, now in edition 2 with 152 pages of games 
z engineering & utility programs plus much useful information on machine 
e language and hardware. Mike Lord 


WAKE UP YOUR ATOM £4.95 20 great programs to make the most of your Atom: including the colour board (old or new type) if fitted. 
P 


lus copious programming tips. Brian Lloyd, 


THE ATOM MAGIC BOOK £5.50 A wealth ot games and other programs plus much useful software and hardware information 


Mike Lord 
Also available 
MASTERING MACHINE CODE ON YOUR ZX81 ToniBaker 180 pages £750 
GETTING ACQUAINTED WITH YOUR 2X81 TimHartnell £4.95 


GETTING ACQUAINTED WITH YOUR ACORN ATOM Tim Hartnell & Trevor Sharples £795 


WHAT CAN IDO WITH IK? Roger Valentine £4.95 
ATOM RAM BOARDS SAE for details 
ATOM ROAM BOARDS t35.00 inclusive Software switch 


PRACTICAL PROGRAMS FOR THE BBC COMPUTER & ACORN ATOM D Johnson Davies £5.95 between 3 utility ROMs and 4K RAM (fitted) to load your own 


utilities from tape or disc 


ZH UNNN 


All prices include UK P&P and VAT where applicable. Overseas customers add £ 1 50 per item for surface mail 
TIMEDATA Ltd. Dept Hc 6 VISA u 
16 Hemmells, Laindon, Basildon, Essex Tel: (0268) 418121 | ____ 


N 


N 
N 





ASTRO BLASTER 


SPECTRUM GAMES FR| 


QUICKSILVA 






1 












TIME - GATE FRENY ASTRO BLASTER GULPMAN MINED OUT 
48K SPECTRUM 16K SPECTRUM 16K SPECTRUM 16K SPECTRUM 48K SPECTRUM 
om 49,- pm 39,- om 39,- 16K 2x-sı om 39,- DrRAGoN DM 39,- 


CROAKA-CRAWLA 
ZX-81 GAMES FROM 


QUICKSILVA 


MUNCHEES 


ZX-81 GAMES FROM 


QUICKSILVA 


SUBSPACE 
STRIKER 


s 
W£L.., t we 
ass 


VIC20 16K GAME 


PIXEL 


n 



















CROAKA CRAWLA MUNCHEES SUB. STR. & ZOR THE CHESSPLAYER KRAZY KONG 
16K ZX81 16K ZX81 16K VC20 DM 59,- 48K SPECTRUM 48K SPECTRUM 
om 29,- 16K X81 DM 20,- om 49,- om 39,- 
































TORNADO WACKY WAITERS ARCADIA MOLAR MAUL METEOR STORM 
3 : 5K VC20 mit 3 - 5K VC20 16K SPECTRUM 16K SPECTRUM 16K SPECTRUM 


oM 39,- 3-5Kvc20 om 39,- Mm 39,- om 39,- 


ZX SPECTR UM in, a pro Bestellung. 
JOYSTICK 


Bestellungen auf eine Postkarte an: 
mit Interface 


Ri ILL Softwarevertretung 
von KEMPSTON en 


ES Ca REED 3388 Bad Harzburg 
IE Tel.: 05322-52927 
* Plus DM 6,- Nachnahme 























Absender bitte deutlich schreiben! 
Händlerfragen auch erwünscht! 


Hausnummern 


Ein Spielprogramm für den ZX-81 mit 
16K-Erweiterung. Es wurde abgeleitet 
von dem bekannten Würfelspiel. 


Spielregeln: 

Es wird dreimal eine Zu- 
fallszahl zwischen 0 und 9 
erzeugt, die jeweils zur er- 
sten, zweiten oder dritten 
Stelle einer dreistelligen 
Zahl erklärt wird. Der Spie- 
ler, der so die höchste Zahl, 
maximal also 999 erzielt, 
hat gewonnen. 

Es können bis zu 8 Per- 
sonen mitspielen. Das 
Spielergebnis ist zum Teil 
vom Zufall abhängig, in 
geringerem Maße von der 
Taktik. Z.B. wird man, 
wenn die erste gezogene 
Zahl eine 1 ist, sie zweck- 
mäßigerweise nicht an die 
erste Stelle setzen. 


Spielablauf: 

Nach RUN erscheint eine 
kurze Anfangsgrafik mit 
dem Spielnamen, danach 
die Aufforderung, I bis 10 
Sekunden NEW LINE 
(zwecks Erzeugung wirk- 
licher Zufallszahlen) zu 
drücken. Dann wird die 
Anzahl der Spieler erfragt 
und deren Namen. Nun 
startet das Spiel. Unter der 
Überschrift, die den aktu- 
ellen Spielernamen und 








die Spielrunde anzeigt, 
wird eine Zufallszahl zwi- 
schen | und 9 angezeigt. 
Es ist nun die Stelle (1-3) 
einzugeben, an die diese 
Ziffer innerhalb einer drei- 
stelligen Zahl gesetzt wer- 
den soll. Das wiederholt 
sich einmal. Die dritte Zu- 
fallszahl wir automatisch 
an die letzte freie Stelle ge- 
setzt. Die Gesamtzahl wird 
angezeigt, dann kommt 
der nächste Spieler an die 
Reihe. Sind alle Spieler 
dran gewesen, erscheint ein 
Rundenergebnis in sortier- 
ter Reihenfolge. Danach 
kann die nächste Runde 
gestartet werden (J aufent- 
sprechende Anfrage. Da- 
bei ist, wenn gewünscht 
ein Wechsel der Spieler- 
reihenfolge möglich. 


Zur Programmpgestaltung: 
Das Programm wurde mit 
Kommentaren zu jeder 
Routine und jeder Sprung- 
anweisung versehen, um 
die Lesbarkeit und die 
Handhabung der ange- 
hängten Renumber-Routi- 
ne zu erleichtern. 


HRUSNUMMERN 
o 


GOSUB VORSPANN 


GOSUB RND-PARAHETER 
ANZAHL SPIELER 


PRINT 


"WIEVIELE SPIELER?" 


INPUT SPIELER 
IF SPIELER>S OR SPIELER<«1 T 


180 
HEN PRINT 


"DAS GEHT NICHT" 


209 _ IF SPIELER>3 OR SPIELER<1 T 


HEN GOTO 128 
222 REM 


.-.GOTO ANZAHL 


SPIEL 


LET DURCHGRANG=® 


REM 
SosUB =589 
= 


GOSUB 


NEUE NRHEM 


INPUT NAHEN 











15808 PRINT " 
[322 


328 DIM Z(3) 

348 REM Ga ZU LIEBESETZT 

FUER ZIFFER AN STELLE I 
REM BEE SPIELBEG INH 


FOR I=1 TO_ SPIELER 
LET NS$S(I)=0O$(TI) 

NEXT I 

LET DURCHGANG=DURCHG 
DIM A(SPIELER) 

FOR I=1 TO SPIELER 
LET A(SPIELER) =® 


u 
»®; 
NG 


LET ZAHL= nr ULlOx=RND 
PRINT "ZAHL ', ZAHL; 


"m EEE INPUT _ STELLE 
INKEY$='"" 
-.GOTO OBIGE 
INKEY$<>"1" AND I 
INKEYS$cC>" THEN 


:#88 


AND 


3 8: 
vud VO DUO NOMm 


PÄAN SODNRN 


INPUT 


co 
14 024 Ur 


. ı 0 Be röO Iro 


STELL 


INPUT 
HEN 


mo rın 
-0 


[2] 


HEN 


oem6 680668 HU6 


mmm 
-N- 
mu 


HEN 


T 
T 
"a Wi 
Tr 
I 


MNPUT 


ro 


mo 
3 


(ST 1 
19888 PRINT ' 

ELLE“ 

1928 äf, STELLE= =3 


? 


THEN 
THEN 


THEN 
(3) +19@O x ZAHL 
NEXT_I 
LET ZAHL=INT 
LET_UNBESETZT=® 
zFE =CıY 


IF Z(2) 
zZF 203) 


PRINT "ZAHL: , ZAHL , 
CH AN ",UNBESETZT,". 


® IF UNBESETZT=1 THEN 
(3) +ZAHL+10® 
8 IF UNBESETZT=2 THEN 


(3) +ZAHL *1® 
88 IF UNBESETZT=3 THEN 


uwum ul» MDIPIRIRPR 
Dr DD 2 BSUONNMRANG 
"8 88 


>9 THEN PRINT 


‚IF AtY) 
er PFRIM 


14908 IF A(J:>99 THEN 
1428 LET PRUSE=S5O 
14408 GOSUB 4140 

1469 REM Run GOSUB PRUSE 
1488 NEXT 

1500 Sosus” 38290 

1522 REM EB GOosuB SORTIE 
1549 CLS 

15698 PRINT ,‚,,," .x 
5: **" 


SPIELER 
ı@0 
" THEN 
THEN PRINT 


PUNKTE‘ 
AND ARALI><ıi 


MERHRER 


ANG+1 


B NAMENSDRUCK 
21 THEN PoKe 16 


’ 
" - STE 


THEN GOTO_89@ 


ZEILE 
NKEYS<> 
GoTo 73 

STELEE 
253 "THE 


STELEE 
PAUSE 5 


PRINT 


INKEYS$ 


G)TO 73 
STELLE 


‚STELLE; ". 
LET AcCS) 
LET Al) = 
LET RO) 


(1®O<RND) 

=® THEN LET UNBESETZ 
=® THEN LET UNBESETZ 
=® THEN LET UNBESETZ 


"_- SET 
STELLE" 


LET AtyJ 


LET ALCI 
LET A(YJ 


7 


REH 
EFRGEBHMI 


LET Ngi 


NECE3 ; 
a2 THEN 





EN. NACHTS SRETE 


IF A(I)>99 THEN 
";ACLI);" PUNKTE’ 
NEXT _E 

FOR I=1 TO 18 
PRINT AT 6,24, 
PRINT RAT Bi: 
PRINT AT 
PRINT _AT 
NEXT I 


PRINT AT 21,8; "WEITER MIT 
LINE""" 


PRUSE 5000 
CLS 
"NEUES SPIEL? (""y"" 


PRINT 
IF INKEY$="" OR (INKEYS$S<>"J 
D INKEYS$S<>'"N') THEN GOTO 193 


GOTO OBIGE ZEILE 
EY$ 

THEN GOSUB 3240 
GOSUB NACHSPANN 
THEN STOP 

THEN PRINT AT_®8,0 
LERREIHENFOLGE? 


Drerenl ISE" 
Ss 


;‚RUII," PUN 
PRINT NS$(I 


SIEGER" 
; "SIEGER" 
"SIEGER“ 


ıRı 


ZFrND IHHTD 
mmom annm 
xÄıın 2 
H’ 


* Er M:C- CZ 


h D 


THEN GOTO 2208 
euue OBIGE ZEILE 


don 
mnprmm; 


3_C0-3; 
# 


THEN GOTOQ 269 
„.  coT9 NEUE NAHEN 

GOTO_S6 

REM A GOTO SPIELBEGINN 


sTOor 


REM BEE VORSPANN 
=1 TO 22 
PRINT 


I<22 THEN PRINT 


on 
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NT Tar 10,8; 


2480 IF I=22 THEN PRINT PB 
2299 NEN m —, 
nn 


PRINT AT 11,8; "| HAUSNUHNER 
PRINT AT 12,8, mn 


LET PRUSE=1® 
GOSUB 41408 
GOSUB EAUSE 


uUB 414@ 
Ben GOSUB PRUSE 
FOR I=2_ TO 21 
PRINT RAT I,®," 


CL 

RETURN 
EEE INPUT NAMEN 
N$(SPIELER,1®) 
M$ (SPIELER, 1®) 


OS SPIELER .i®} 
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PAUSE 208 
CLS 

FOR I=1 TO SPIELER 
LET O$(I} =N$ıLTı 
NEXT I 

RETURN 

REM TEEN A NAcCHSPAHnn 
CcLS 


FOR I=-1_ TO 22 


3508 PRINT 








33298 NEXT I 
3340 PRINT AT 


33868 PRINT AT ‚6 pr I 


190,18,“ 
SPIELENDE 
3388 PRINT AT 12,10," 


34900 LET PrRUSE=1®8 
341290 GOSUB 41408 
34408 REM EM sosus PRUSE 
34650 FOR I ı TO @ STEP -ı 
3438 PRINT AT I,oO 


35080 NEXT I 
3528 PRINT AT 
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19,4," 


BIS zum NHRAE 
12,4," 


RETURMN 
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Spectrum 


Alle Spiele 100% Maschinensprache. Preise inkl. MwSt. zzgl. 5 DM Porto & Ver- 
packung. Lieferung per NN oder Vorkasse. Viele weitere Spitzen-Programme 
(ab 19 DM) finden Sie in unserem neuen farbigen Gesamt-Katalog 3/83, den 
wir Ihnen gegen 2 DM Schutzgebühr gerne zusenden. 


Software-Autoren gesucht Ö KINGSOFT 


Wenn Sie ein gutes Programm (in Ma- 








schinensprache) für VC-20, VC-64 oder Fritz Schäfer 
Spectrum geschrieben haben: wirzahlen Schnackebusch 4 : D-5106 Roetgen 
Ihnen einen TOP-Preis! Telefon 02408/83 19 








Grid-Gummer 


Der Grid-Gummer ist ein Tier, welches 
Klebstoff trinken kann. Es kann aber 
nicht darauf stehen oder gehen, sonst 
bleibt es kleben. 


In einem Labyrinth, ei- 
nem Gitter ähnlich sehend 
befinden sich mit Kleb- 
stoff gefüllte und leere Fla- 
schen. Die Aufgabe des 
Spielers besteht darin, den 
Grid-Gummer von derlin- 
ken oberen Ecke in die 
rechte untere Ecke zu steu- 
ern. 

Dabei sind aber die er- 
wähnten Flaschen im We- 
ge. 

Leere Flaschen können ge- 
fahrlos zerbrochen wer- 
den (durch Dagegenlau- 
fen). Zerbricht aber eine 
volle Flasche, so fließt der 
Klebstoff aus und unser 
Grid-Gummer bleibt kle- 
ben - verloren! - 

Man muß also mit Überle- 
gung die Flaschen so um- 
füllen, daß ein freier Weg 
entsteht. 

Dazu hat der Grid-Gum- 
mer einen langen Rüssel, 
den man ausfahren kann, 
wenn er sich über einem 
kleinen Loch befindet. Der 
Rüssel reichtsoweit hinab, 
bis er auf eine volle Fla- 
sche oder leere trifft. Die- 
se wird dann ausgesaugt 
oder gefüllt (je nach Zu- 
stand der Flasche und des 
Grid-Gummers). 

Wenn man eine Flasche 
geleert hat, muß man erst 
wieder eine Leere auffül- 
len. Der Grid-Gummer ist 
dann nämlich voll. Ob er 
voll oder leer ist, kann 
man an seiner Gesichts- 
farbe erkennen. Blau ister 
leer, purpur voll. 

Wenn der Grid-Gummer 
über einem großem Loch 





ist, dann kann er in die 
darunter liegende Ebene 
hüpfen. Unter einem gro- 
Ben Loch in die darüber- 
liegende. 

Bedingung fürdas Saugen 
oder Hüpfen ist aber, daß 
der Grid-Gummer sich ge- 
nau über der Mitte des je- 
weiligen Loches befindet; 
sonst tut sich nichts. 

Das Spiel endet mit der 
Meldung Ziel wenn man 
in der rechten unteren Ec- 
ke ist und mit Festgeklebt 
wenn man eine volle Fla- 
sche zerbrochen hat. 

Die Meldung bleibt so- 
lange bestehen, bis man 
RETURN drückt. Sodann 
beginnt ein neues Spiel. 


Steuerbefehle: 

R- rechts L - links 

T - tiefer H - höher und 
S - Saugen oder Füllen. 


Die Tasten sind auf Wie- 
derholfunktion program- 
miert. Man braucht also 
nicht ständig zu 'tippeln’, 
sondern hält die Tasten 
einfach fest. Um aber di- 
rekt über die gewünschten 
Löcher zu kommen ist kur- 
zes Antippen besser. 

Viel Spaß beim Saugen, 
Flaschen zerbrechen (aber 
keine vollen)!!! 


Programm folgt ab Seite 30 





Oil-Panic 


Oil-Panic ist ein kleines Spiel für die 
Grundversion des VC-20. Oltropfen sol- 
len aus einer lecken Leitung aufgefangen 


werden. 


Zum Eintippen des Pro- 
gramms: Wenn man ei- 
nen VC-20 mit 8-K-Erwei- 
terungoder mehrhat,dann 
muß man vor dem Benut- 
zen des Programms diese 
entfernen oder man muß 
sämtliche Pokes im Bild- 
schirm und Farbspeicher- 
bereich ändern: 


Bildschirmbereich: Adres- 
se ist Adresse - 3584 
Farbspeicherbereich: Ad- 
resse ist Adresse -512 


Noch ein Hinweiszum Li- 
sting: In Zeile 10 könntees 
statt POKE 646,3 besser 
POKE 646.2 heißen. 


Das Spiel: 

Ziel bei Oil-Panic ist es, 
Öltropfen, die aus einer 
lecken Ölleitung fallen, 
aufzufangen. 

Dazu hat der Spieler ein 
Gefäß, das er unter derÖl- 
leitung hin und her bewe- 
gen kann. Er muß aller- 
dings darauf achten, daß 
dieses Gefäß nicht über- 
läuft. Deshalb muß er es 
von Zeit zu Zeitinein Faß 
ausleeren. Die Anzahl der 
aufgefangenen und derent- 
leerten Tropfen wird als 
Punkte gezählt. Um das 
Spiel schwieriger zu ma- 
chen, istes verboten, mehr 
als 4 Tropfen zu Boden 
fallen zu lassen. 


Der Spielverlauf: 

Nach dem Starten des Pro- 
gramms erscheint das Ti- 
telbild. Um das Spiel zu 
beginnen muß man eine 





Taste drücken. Danach er- 
scheint das Spielfeld, wäh- 
rend gleichzeitig eine Me- 
lodie gespielt wird. 

Das Spielfeld ist folgen- 
dermaßen aufgebaut: Am 
oberen Bildrand liegt die 
Rohrleitung. Darunter bil- 
den sich an unterschied- 
lichen Stellen allmählich 
die schwarzen Öltropfen. 
Das Gefäß des Spielers ist 
zu Anfangein weißer Strich, 
der sich auf der grünen 
Grundlinie mit den Ta- 
sten Z und / nach links 
und rechts bewegen läßt. 
Das Faß zum Entleeren 
steht auf der rechten Sei- 
te. An der unteren Bild- 
schirmkante erscheinen 
drei Zahlen. Die linke der 
Zahlen zeigt an, wieviele 
Tropfen im Gefäß sind 
(höchstens 6), die mittlere 
gibt die Zahl der erreich- 
ten Punkte an und die 
rechte zeigt an, wieviele 
Tropfen man noch fallen 
lassen darf. 

Wenn der Computer be- 
reit ist, dann ertönt ein 
Klingelsignal. Danach be- 
ginnen die Tropfen zu fal- 
len. Hat man mehr als 4 
Tropfen fallen lassen, ist 
das Spiel zu Ende. Wenn 
man ein besonders gutes 
Ergebnis erzielt hat, spielt 
der Computer eine kleine 
Melodie. 





1 a$=chr$(19) storo=1to2l :a$=a$tchr$(17) next 
2 toro=1t028:b$=b$+chr$(29) ınext: 

3 h$=chr$t164)+chr$(164)+chr$(164)+chr$(188) 
5 hi=d:dimm(?) 

18 poke36879 ,255: peintchrsti472: print:print:poKe646,3 
28 print" r 
36 print" r oil-panic 
48 print"  r = 

58 pokeö46,8:print:print: print" taste druecken !*:print:print:print" high : ";hispokel98,H:waiti9d,! 
68 poke36879,178 

?8 printchr$(147) ;:foro=1t022:printchr$i164) ;inextitoro=itoS:printhsjnextiprintieft$ih$,2) 

88 printchr$(19) ;poked44,5:foro=1to2B:printchr$(17) ; inext:foro=1to22:printchr${184) sinextiprintchr$(i9); 
98 poke8118,76:poke8119,141:poke8896,79:poke8897,181:pokKe39818,7:pcKe38817,7:p0Ke39838,7: :p0ke38839, ® 
188 #=8:qur1ß:i=ß:s=h:t=ß:a=ßurß 

118 poke36878,15:restore:poked46,8 

128 foro=#to19:poke38818+0,1:next:poke8698,160 

130 data215,688,215,688,219,688,212,968,215,380,219,608 223,688, 223,600,225,686 

148 data223,908,219,388,215,688,219,688,215,688,212,508,215,1268 

158 foro=itolö:reada,b:poke36874 ,a:forp=Itob:next:poke35974 ,8:torp=Itold:nextp,o 

168 foro=dtos:readw(o) next 

178 datai88,111,121,98,248,247,227 

188 pu=8:K=4:9=8898 

198 toro=8t028+22*16:poke38444t0,B:next 

191 poke38817,7:poke38816,7 

195 forl=1toS:form=1toS:poke36876 ,228:torn=1toS:nextn:poke36878,8 

196 nextm:torm=1told:nextm,:poKe36876,8 

199 printas;right$Cb$,17) ;K;chr&(19) 

208 a=d:itpeek(197)=33thena=-1 

218 ifpeek(197)=38thena=1 

228 #=fta:iff=-Ithenf=B:a=8 

238 itf=28thena=d:#=19:g0sub588 

248 pokeg+f-a,32:pokeg+f wii) :gosub?B8 

258 its=@thenweintigw) stzint(rnd(f)*28) :5=1:poke7724+1,99:g0t0268 

268 weu-l:ifw(d-Ithen288 

278 its=Ithens=2:poke7724+t, 119 weint(gw) :goto248 

288 poke7724+t,81:foro=128t0254:poke36875,0:next:poKe36875,8:poke36878,7:poke7724+t,32 

298 foro=Itols:poke36876,254-0%*2:poke?724+t+0#22,Bl:torg=Itoldinext:poke?724tt+0#22 ,32:next 
368 poke36876 ,8:poke36878, 15:5=8 

318 ift=ttheni=iti:iprintab;i;chr$i19) 

326 ifi=?theni=:printas;i;chr$(19) :goto6d8 

338 itt=tthen238 

348 gotosBR 

588 pu=putisi=ß:printas;rightsib$,9) spu;chrs( 19) sgwrgw-.2 

518 foro=268t0254step .S:poke36877 ‚o:next:poXe38877 ,B:return 

688 K=k-I:printas;rightScb3,17) ;K;chrst 19) 

618 poke36877 ,228:toro=IStoßstep-.87:poke38878 ‚o:next:poke36877 ,B:poke36875,15 

628 itk=Bthen888 

638 goto288 

788 ita=dthenreturn 

?18 poke36874 ‚288: torp=1toS8:next:poKe36874 ,B:torp=1toSß:next 

728 poke36874 ,288:forp=1toS@:next:pcke36874 ü:return 

860 itpus=hithenprintleft$(a$,4);" high : ";histforomlto2ßdtinextigotol 

818 hi=pu:printleftt$(a$,7);5" high : ";zhi 

828 foro=1t025:reada,b:poke36874,a:forp=itobinext:pcke36874 ,Bitorp=Itoldinextp,o 

838 foro=ito1888:next:gotoid j 

846 data289,386,261,188,187,408,281,488,289,408,221 ‚568 ,228,308, 225,188, 

850 data281,480,287,488,209,868,289,308,289,190,223,398,225,289,221,488, 


868 data215,208,219,268,221,468,221,468,289,486,261 ,460,187,468 
ready. 
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VC-Pinball 


Das Programm ’VC-Pinball’ stellt am 
Bildschirm einen Flipperautomaten dar, 
mit dem man nach allen Regeln der Kunst 


flippern kann. 


Zur Erklärung: Das Pro- 
gramm besteht aus zwei 
Teilen, dem Loader, der 
ein Maschinenprogramm 
in den VC-20 poked, und 
dem Spielprogramm. 
Das Programm benötigt 
mindestens die 16-K-Er- 
weiterung; denn bei weni- 
ger Speicherplatz arbeitet 
das Maschinenprogramm 
nicht. 

Die Loader-Routine setzt 


Juli 1983 





den Basic-Start um 137 
Bytes höher, da das Spiel 
den Bildschirm in 27 Zei- 
len zu je 24 Spalten ein- 
teilt. Deshalb ist es nötig, 
den Speicherplatz für die 
Video-Matrix zu erweitern. 
So eine Größe des Bild- 
schirmes läßt sich gerade 
noch ohne Hardware-Än- 
derungen darstellen. Die 
normale 23 Zeilen / 22 
Spalten Einteilung reicht 





—_— VC-20 


für ein Spiel dieser Art 
nicht aus. 

Nach Starten der Loader- 
routine ist irgendeine Ta- 
ste zu drücken, woraufder 
VC-20 das Spiel automa- 


‚tisch lädt. Es sollte daher 


direkt nach dem Loader 
auf dem Band stehen. 
Das Spielprogramm star- 
tet man normal mitRUN. 
Es erscheint das Titelbild. 
Nach Drücken einer belie- 
bigen Taste baut der Com- 
puter den Flipperautoma- 
ten auf. 

Um den Ball abzuschie- 
Ben drückt man wieder ei- 
ne beliebige Taste. Das 
Spannen der Feder und 
das Abfeuern des Balles 
werden nachgeahmt. 
Den linken Flipper kann 
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man mit der Taste Z betä- 
tigen, den rechten mit der 
Taste /. 

Man hat 5 Bälle zur Ver- 
fügung. Die Nummer des 
aktuellen Balles wird an- 
gezeigt. Hatman nach dem 
5. Ball mindestens 3000 
Punkte erzielt, bekommt 
man als Bonus einen Frei- 
ball. Beträgt die Punktzahl 
nach diesem mindestens 
5000, dann gibt es einen 
weiteren. 

Sollte während des Spiels 
einmal ein Ball in den 
Schußschacht zurückfal- 
len, kann man ihn wieder 
abfeuern. er wird in die- 
sem Fall nicht gezählt! 


Homecomputer 35 


ON AUmem 


EM KEDHÄANS- JUERGEN 
REM STADELMAHN 
REM 

REM Eu 5, u Sm IHRE Dee 2 22 


>AHDLEBPHESECPEEK (35069) ANDL2D) : FA=4#lPEEKCI6BES>ANDI28>+3788 


SKEFR, 27 :FRINT"TI" SS FORB=SITOSE: PRINT" "NEXT 
:FEIMT"RS-" :HEXTFRINTSIRRRRIMF LIFPER" 
TE REN INKER  FLIFPER" PRINT AR BR=SRECHTER FLIPPER" 
FRIHT" TREE" 


= FRIMTUMERERSTARTE “FIHBALL” MIT IRGENDEINER TASTE. ...." 
" R=IMTERHIIGRTEDHLZAUSEHIHTERNDEL DELL TR Z=INTERNDCLIMSAI +19 


12 FORELT, AS FORG=ATOESTEP1B:POKET1,GEPOKET2,R:POKET3,R:FORML=ATOZ:NEXTAL,N 


FOKELT,2:POKET1,8:POKETZ,B:POKET3.R 


za GETAF: IFAF=" "THENFORD=QTO199: NEXT: GOTOL7 


FÜKEFRB,Z 5B9: FÜRO=STI647 : POKEFA+R, 5: NEXT: FORG=48T071 :POKERS+R, 224 NEXT 
E EPZ4: PÜKERS+N, 224: FOKERS+U+23, 224 : NEXT 
Da44 PFOKEFA+G, SS: POKERBS+E, 102: NEXT FORM=645TO1E9STEP-24 :POKEFA+Q,S5 
POKERS+U ‚224 NEAT:RESTORE: FORQ=1T03:READA:POKEFA+R.S:FOKEBS+A.95:NEKT 
FORG=1T03: READA: FOKEFA+R.S:POKEBS+HA. 195: NEXT 
DATAPZ, 117,142, 77:,99,121,93.94,118.73, 74,97 
TOB: READFA: FOKEFRA+F,S:FOKEBS+R, 224: NERT 


FORG=63210637 : POKERS+O, 32: NEXT 


FÜrRG=1 TOE: READA: POKEFR+A, 4: NEKT 
DATASSA. 361,785, 565, 364,583 
560: Um5G1:T=995:K=963: 7=564 122588: LU=127: RU=255:0B=226 


” POREES-+RULU:FOKEBS+T, LU: POKERS+% RU: POKEBS+Z, RU 


FIRA=533710537  POKEB+FA, 7: POKERS+R.215:HERT 

FORR=I53T0572: POKER+FRA, 7: PÜKERS+R, 215: NEXT 
POKEFA+338, 7: POKEFF+583, 7 FOKEFA+567 , 7: FOKEFR+539, 7 
POKERS+558, 223: FOKERS+3 23: FÜKRERS+367 , 233: FOKERS+399 233 


2 FÜRB=SPTTOSBE FOKEFA+E: ÜKERS+2. 224: NEMT 
3 Era! En EL user NEST 


READR: FORBEHER a IKEBS+A, 192: NEXT 
FORG=LTOLA:READA: POKEFA+A,R:FOKERS+RA. 42: NEMT 
LATA193, 196. 197,172, 220, 209,299, 210:195,233 
POKEFF+31,5:POKERS+S1, 35: FOKEFA+84, 5: PÜKEBS+S4, 195: POKEFA+1B6,5:POKEBS+196,95 


E Aue pe: 


ARM, = SPINBALL 


ie DIMERCLSPEFORR=SETO14READKRCED NEXT 


DATASS, 182,42.,82. 224, 1099,95. 219, 127.255, 233: 222,88, 99,09 


? GOSLUBSE 


SPEC6H" TIME" 


) Bas: TIERE": =: 0231 :02=0 


I FÜREFA+B45, 2: FORERS+BAS , 120: POKEFA+S22, 0: POKEBS+622,86 


POKEFR+338, @ POKEBS+328, 86: POKEFA+S74. 8: POKEBS+374, 224: 6010198 
PELNT RRIERBERRRER SL: FRIHT"SIM"SPCELSITIE:RETURN 
E . FORB=STO1S:POKELT.G:FOKETZ.0#18+189: NEXT: POKELT, @:POKET2,0:005UB958 
198,0: B=E-1:P=552: PFOKERS+P,C 
; R35 
GETAF: IFAF=""THENIAZ 
M=F: FOKELT, AS: FORB=FTOP+FZSTER24: FÜKET1, Q-499 : FOKERS+E,C: POKEM+RS, 32: Me: NEX 





T:P= 


195 
1265 
187 
103 
193 
118 
111 
112 
115 
228 
203 


jp Kurae 

FOEETI.@:P=F-24: POKERS+F, GC: POKEM+RS, 86: POKET4, 159: M=P : P=P-24 :POKEBS+P,C 
POKERS+M, 26: POKET4, 198: Map: F=P-24 : POKERS+P ,C: PÜKEBS+M, 128: POKET4, 228 
POKERS+M. SE: FOKET4, 1839: M=F: P=P-24 : FOKERS+F GC: POKERS+M, 224: POKET4, 228 
M=F: FOKET4, EN: FORG=P-24TOP-16#245TEP-24 : POKER+BS.C:POKEM+BS, 32: M=R: NEXT: P=M 
FIRG=SFTIP-3#255TEP-25: FOKEBS+R, GC: POKEM+ES,32: Mei: NEXT:Pe=M 

Ge INTERNDELDELEI: IFOL=STHENS=24 :G0T0115 

IFÜZ=1ETHENS=-1:50T0115 

5=23 

REMEEHK 

SOSUB2S: GOSLUB4R: P=P+5: IFFEEREES+PI=SIZAHNPCSA7THENZ2BF 

IFP>S47 THENZE 

IFFES4ERHNFFS3STHENZ21S 

GOTOZ1F 

IFP<S42ANDP>I3ETHENZ213 

FOKERS+P,G: POKEBS+M, 32: M=F:GOTI2ZaA 

IFSSLINEN: be] 


ITHENSC=S 5041,20: G05UB250: GOTIZAR 
Sg :GOTIZEA 
SE GOTODEE 
32: GOTOEDE 


Ri ITI2ER 
GSUB239: G0T0208 
wo SUTOEAB 


GOTD2IES 
GOTIEBE 


'4OTHENS ! 
:SNTOZER 
TI 
SUTDzZAS 


"BG 


4: :POKETS TS use na FOKEI+BS.N:HEHT 


"RETURN 
-23:RETLUFN 


:POKEF+BS, 32: FORR=ZSATILSIMSTEPR-3: POEETZ CE FOKET3, EINER 
‚EEFOEE EM: IFBSATHENI GE 


T3. 220: FÜORA1L=1T05: NEXT: POKET3,M 
IT EEE HTDIE ee" POIEE LS MAITISS,A1 


SARTHENEN=2:B0T03S5E 
1 
Land 1 int n] PT 22 re u 5 ER ur 7 220) 
ATI1S9-ESTEP-4:POKET3. AL :NEXTIFORAL=16A-HTOZZA-ESTEP4 
OKETZ2. 





PR INT" " TDRRRI 
Bei! 


25: RETURN 


24: RETURM 


Mails Fi KERS+214, 12012) Pace wuejgs: HEKT: RETURN 


REATIT. 


WE-FIMERLLEH 
LORDER WR 


[5] 
1 
& 
4 


Bot 


: POKESSSERRINT" R———— 1 wor VE - PINBALL WW; 
a —— 
ED SHAHS- JUERGEN BSTADELMANN" 
G=PEEK« 569 #Z5STOPEER (IH) E23I6+9 
FERLSO POKERG KO HERT 
IATA1LE3,11,141,90,144,169,27,141,1,144,169,24,141,2,144,169,54,141,3,144 
IATA1LE3.32, 162,128, 157,8, 16, 282, 16.250, 162, 128, 157,128, 16, 292, 16, 250, 162,128, 
157,9,17 
ad DATREME. 15,250, 162,128, 157,129,17,202,16.259, 162,128, 157,9,18,292,16,259,162, 
197 
=ı IHTAIZE.12.208.15.239.96,169,12,141,9,144,169,38,141,1,144,169,22 
33 DATAI41.2, 144.159,45,141,2, 144,96 
FREINT"ERWS-FIMBALL 4" 
zu FRINT"MLOADER- ak" 
OUTIHE a" 
S:UAITIZE.L 
EEFOKEAT. LET 
SRDGEIHER"  FRIMT"MALORD"  FORO=E31 10648: POKEG, 13: NEST 
N POKELSE, LEG FRINT"S" 





Highway 


Highway ist ist ein äußerst schwieriges 
Spiel für den VC-20 mit mindestens 8 K 
Erweiterung. Obwohl es beim Lesen der 
Spielanleitung so aussieht, es ist nicht im 
Entferntesten mit Frogger verwandt. 


: 


Nee 5 
a 
5 


fi 
3 


Das Ziel des Spieles ist es, 
eine 9-spurige Autobahn 
zu überqueren, wobei an- 
dere Wagen den eigenen 
daran hindern. Um esgra- 
phisch interessanter zu ge- 
stalten, wurden 12 Zeichen 
neu definiert. Die Art der 
Definition ist dem Benut- 
zer überlassen: 

a) die Zeichen per Zei- 
chen per Zeichengenera- 
tor eingeben. 

b) die Zeichendatas ab Zei- 
le 890 benutzen. 

Im ersten Fall muß Zeile 
10 folgendermaßen geän- 
dert werden: 

10 GOSUB 720 

Die Zeilen 890 - Ende kön- 
nen dann ignoriert wer- 





den. 

Um die Wagen schneller 
werden zu lassen wurde, 
eine kurze Maschinen 
spracheroutine benutzt. 
In den Zeilen 570-690 be- 
finden sich Punkte in den 
Zeichen. Diese dienen nur 
als Eingabehilfe, weil dann 
die Anzahl der Blanks bes- 
ser zu erkennen ist. 

Das eigene Auto wird mit 
folgenden Tasten gesteu- 
er: P- hoch L- links 

/ - runter 5 - rechts 


Vor dem Eintasten mit: 
POKE44.28:POKE7 168,0: 
NEW 

den Basic-Start an die be- 
nötigte Stelle setzen. 


aaa eh 
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a4 
Saas 200 
FERERFEN 
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HIsSH WAT 


:GETSE: I[FGg=""THENNERT 


B#22+l.5: NEST: POKE 


22. ?1:POE As+al+l. FE: PÜRE4DRE 


"RINTITTRELZ4L" ER TOL HAD AH ACCIDENT " 


" 





INTFEITRB 12:5: Fi 
IH "WUE" MIM "WIE" 


LIERG j 
DEN HAECHSTEN ZEILEN DIENEN NUR ALS EINGABEHILFE.NICHT EI 


EM ALSO ANSTELLE DER PUNKTE LEERSTELLEN 3 
FEIHTTRR EEE. 





3 FEIHT'TA.M..a8 Pu} m 
FRINT"A..... = „.w; 
FEIHT"A..M,.Q, Pi Pa Parer Bor gm"; 
FRINT"A. 

>24 PRINT"A....d. 

PRINT"M... 
5 AT". a. 
.H. 


FÜKE36876,8:FÜRT=1T0108 
a FÜRI=1TÜLEHÜAFI:BFSLEFTECHE, IN: 
4 FRIHT'" arieleleinienislsiststeisteipletel" BE "07" FÜR. :FÜRF=1TO1ESG:REM SHIFT TI“ 
A HE#TP.I 
RETURH 
E83 REM POKE DE FEMESUNGSROUT IHE IH DEN CASSETTEHEUFFER 
FÜRT= To1: 


3513 THEHFRINT" 7 EINGARE-FEHLER 7" END 


Ent Nr 
DER ZEICHENDATRS 
a ME I TTE knkTEH" 
23 Ük 


a DATASS. 
1078 RETURH 


BEAT. 





ORANGE 2 COMPUTER 
(voll APPLE kompatibel) 


Groß-/Kleinschreibung, Umlaute bei allen Ausführungen 


tor 
Aergem 





Komplettsystem wie abgebildet ab DM 4499,- 
Bausatz: Hauptplatine 48K-RAM und alle Teile, fertiges Netzteil, 

Cherry-Tastatur (4 Cursortasten, 2 Editiertasten, Hometaste, Gehäuse) DM 1 388,- 
Fertiggerät: wie oben, jedoch fertig aufgebaut, 

Orange 2 6 Monate Garantie nur DM 1 688,- 
Gehäuse für Rechner und 2 Drives auf Anfrage. 

CSC Euro 1000 48 KB (voll Apple Kompatibel) om 1 450,- 
CSC Euro Super 48 KB om 1 750,- 
PERIPHERIE: 

NEC-8023 BC n. Graphikinterf. DM 1 950,- 
BMC-Monitor Typ 12 grün geätzte Röhre DM 540,- 
Zenit-Monitor ZUM 121 (ow cosn) om 305,- 
16K Language Card om 220,- 
80 Zeichenkarte m. 40/80 z. Softswitch om 495,- 
CP/M Z-80 cpu-karte om 37 5,- 
Verbatim batalife Disketten 514” (10) DM 79,- 
Diskettenlaufwerke und weiteres Zubehör auf Anfrage! 


Alle Preise verstehen sich inkl. 13% MwSt. Versand erfolgt unfrei. 
Weitere Informationen gegen DM 1,50 in BM. 


3544 WALDECK-SACHSENHAUSEN WINTERHAGEN 2 
TELEFON 056 34-1724 TELEX 991160 AEW D 








Kartenspiel 31 


Ein einfaches, aber hoch interessantes 
Spiel für den Apple Il in Pascal. Das weit- 
verbreitete Spiel, das mit den unterschied- 
lichsten Regeln gespielt wird, wird in 
Homecomputer in einer Form vorgestellt, 
die einem gewissen Standard entspricht. 
Es kann ein Spieler gegen den Computer 
antreten, welcher den Partner simuliert. 


Spielregeln: 

Zum Anfang erhalten der 
Spieler, sowie der Compu- 
ter je 3 Karten und 3 10- 
Pfennigstücke (Groschen). 
Ebenfalls werden 3 Kar- 
ten auf den Tisch gelegt. 
Ziel des Spiele ist es, mög- 
lichst viel Augen einer Far- 
be zu besitzen. 

Die Kartenwerte lauten: 

7,8,9 & 10 haben ihren 
aufgedruckten Wert; Bil- 
der sind 10 und das As ist 
11 Augen wert. 


Wer am Zug ist, hat die 
Möglichkeit, eine oder alle 
Karten gegen die auf dem 
Tisch auszutauschen. 
Möchte man keine Karte 
tauschen, so kann man 
schieben (Taste S) oder 
passen (Taste P). 


Außerdem existiert noch 
eine Sonderregelung: 
Wenn Spieler oder Com- 
puter 31 Augen haben, 
dann ist dieser sofort Sie- 
ger. Drei gleiche Werte 
(z.B.: Siebener) zählen 30 
% Punkte. 

Wer eine Runde verliert, 
zahlt einen Groschen. Sind 
alle Groschen verspielt, so 
kann der Spieler noch 
‘schwimmen’, bis er die 
nächste Runde verliert. 


Dann ist es entgültig aus 
und der Gewinn bleibt 
beim Gegner. 

Zum Karten tauschen be- 
nutzt man die Ziffer der 
Karte auf dem Tisch, da- 
nach gibt man die Ziffer 
der eigenen Karte an, die 
man tauschen möchte. 
Möchte man alle Karten 
tauschen, so genügt ein A. 





PROGRAM KARTENSPIEL; (* SPIEL 31 <C> BY F.BRALL *) 


USES 
APPLESTUFF , TURTLEGRAPHICS5 


CONST 
KARTENANZAHL R 
SPIELERZAHL (* SPIELER [3] STEHT FUER TISCHKARTEN *) 
(* SPIELER [41 IST EIN COMPUTER-HILFSSPEICHER %*) 
(* SPIELER [5] IST EIN TISCH-HILFSSPEICHER *) 
KARTENPROHAND =35 


VAR 
KARTE :ARRAY [i1..KARTENANZAHL]I OF INTEGER5 
SPIELER :ARRAY [1..SPIELERZAHL, 1..KARTENPROHAND,1..213 OF INTEGER; 
FARBE :ARRAY [9..43 OF STRING [19]; 
WERT :ARRAY [9..3] OF INTEGER; (*AGZ PIK,HERZ,KARO,KREUZ*) 
FCODE : INTEGER5 (#* HOECHSTER FARBWERT NACH FUNCTION AGZ *) 
AUSWERTEN, SPASS, CPASS, CSCHIEB, SSCHIEB :BOOLEAN; 
GEWINNER :INTEGER; (* 1 COMPUTER, 2 SPIELER, 3 UNENTSCHIEDEN *) 
PAUSE : INTEGER3 
CGROSCHEN, SGROSCHEN : INTEGER5 (* ANZAHL DER GROSCHEN %*) 
SIEBENER :BOOLEAN; (* TRUE BEDEUTET 3 SIEBENER *) 
ENDE zBOOLEAN; 
AUSSETZEN : INTEGER3 
FLAGAUSSETZEN :BOOLEAN5 


PROCEDURE RAHMENMALEN5 
FORWARD; 


PROCEDURE INITIALISIEREN; 
VAR 
X,1I : INTEGER; 
BEGIN 
VIEWPORT (98,279,8,191)5 FILLSCREEN (BLACK) 5 
AUSWERTEN := FALSE; (*SPIEL NICHT ZU ENDE*) 
SPASS FALSE; (*SPIELER HAT NICHT GEFASST#) 
CPASS FALSE; (*COMPUTER HAT NICHT GEPASST *) 
CSCHIERB FALSE5 (*COMPUTER HAT NOCH NICHT GESCHOBEN*) 
SSCHIER := FALSE; (*SPIELER HAT NOCH NICHT GESCHOBEN*) 
FLAGAUSSETZEN :=TRUE3; (* AUSSETZEN FALLS AUSSETZEN UNGERADE #) 
RANDOMIZE;3 (* FUER KARTENMISCHEN %*) 
FARBE [8] := "’PIK’5 
FARBE [1] "HERZ’3 
FARBE [2] ”"KARO”’ 5 
FARBE [31 "KREUZ’3 
FARBE [41 := "SIEBEN’; 
PENCOLOR (NONE) 5 
MOVETO (8,189) 5 WSTRING (’COMPUTER’); 
MOVETO (9,99) 35 WSTRING (’AUF DEM’) 5 
’ 
3 





MOVETO (29,89) WSTRING (’TISCH :”)5 
MOVETO (8,49) WSTRING (”’DEINE’)3 
MOVETO (14,39) 5 WSTRING (’KARTEN 2”)35 
MOVETO (238,498) 5 WSTRING ("AUGEN: ”)5 
MOVETO (97,69)5 WCHAR (’1”)5 
MOVETO (152,69) 5WCHAR (°2”)5 
MOVETO (297,69) 53WCHAR (°23”)5 
FENCOLOR (WHITE) 3 
FOR I := 1 TO 3 DO 
BEGIN 
xX:=( 1 * 59) + 39 
VIEWPORT (X,X+3@,145,19@)5 
FILLSCREEN {WHITE)I53 
END; (*#FOR*) 
RAHMENMALEN 
END; (* INITIALISIEREN *) 
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FROCEDURE WINTGER (ZAHL: INTEGER) ; 
VAR 
ISTRING :STRING;> 
BEGIN 
STR (ZAHL,ISTRING) 5 
WSTRING (ISTRING) 
END; 


PROCEDURE KARTENHOLEN;5 
VAR 
I z: INTEGER; 
BEGIN 
FOR I := 1 TO KARTENANZAHL DO 
KARTE [I3 :=I -1 
END; (* KARTENHOLEN *) 


FROCEDURE KARTENAUSTEILENS 
VAR 
I„KARTENNR, ZAEHLER : INTEGER> 
BEGIN 
ZAEHLER := 15 
FOR I := 1 TO SPIELERZAHL DO 
FOR KARTENNR := 1 TO 3 DO 
BEGIN 
ZAEHLER := ZAEHLER + 15 
SPIELER [LI„KARTENNR, 1] KARTE [ZAEHLER]I MOD 8 + 15 
SFIELER E[LI,KARTENNR, 2] KARTE [ZAEHLER] DIV 8 
END; (*+FOR*) 
END; (%* KARTENAUSTEILEN *) 


FROCEDURE KARTENMISCHEN; 
VAR 
I,J, ZUFALL zINTEGER;3 
BEGIN 
FOR I := KARTENANZAHL DOWNTO 2 DO 
BEGIN 
Jo:= 1 + RANDOM MOD I; 
ZUFALL := KARTE [LJ]J3 
KARTE [LJ2 := KARTE [1]; 
KARTE [I] := ZUFALL 
END (* FOR *) 
END; (* KARTENMISCHEN *) 


FUNCTION AGZ (SFIELERZ :INTEGER) : INTEGER> 
VAR 
I, ZAEHLER, ZAHL : INTEGER3 
BEGIN 
WERT [8] :=@ 5 WERT [1] :=8 ; WERT [2] 
FOR ZAEHLER := 8 TO 3 DO 
FOR I := 1 TO KARTENFROHAND DO 
BEGIN 
ZAHL := 85 
IF SPIELER [SPFIELERZ,I,2] = ZAEHLER THEN 
CASE SPIELER [SPIELERZ,I,1]1 OF 
12 ZAHL 735 
2: ZAHL 
3: ZAHL 
4: ZAHL 
5: ZAHL 
6: ZAHL 
7: ZAHL 
8: ZAHL : 
END; (*CASE*) 
WERT [ZAEHLER]I := WERT [ZAEHLER]I + ZAHL> 
END: (#FOR*) 


nun 
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FCODE := 8; 
AGZ :=WERT [91]; 
ZAHL := WERT [8]; 
FOR ZAEHLER := 1 TO 
BEGIN 
IF WERT [ZAEHLER] > ZAHL THEN 
BEGIN 
AGZ == WERT [ZAEHLER]3 
ZAHL:= WERT [ZAEHLER]3 
FCODE := ZAEHLER 
END (#IFx*) 
END; (*FOR*) 
SIEBENER :=FALSE5 
IF ZAHL = 7 THEN 
BEGIN 
AGZ :=39;5 
FCODE := 45 
SIEBENER :=TRUE 
END 
END; 


FROCEDURE RAHMENMALEN3 
VAR 
%,Y,1,@ : INTEGER3 
BEGIN 
VIEWPORT (8,279,8,191)5 
FOR @ := 8 TO 1 DO 
BEGIN 
Yaı= 86-(0*49)5 
FOR I := 1 TO 3 DO 
BEGIN 
x := (18559) +395 
FENCOLOR {NONE 3 
MOVETO (X,Y)5 
PENCOLOR (WHITE)3 
MOVETO (X,Y+45)5 MOVETO (X+39,Y+45)5 MOVETO (X+39,Y)5 
MOVETO (X,Y)5 
END 
END 
END;5 


PROCEDURE MALE1 (X,Y,„ZEICHEN : INTEGER) 5 (#*MALE KARTENFARBE#) 
BEGIN 
MOVETO (X,Y) 5WCHAR (CHR (ZEICHEN); 
MOVETO (X-987,Y-18) ;WCHAR (CHR (ZEICHEN)D3 
MOVETO (X-18,Y-33) 3WCHAR (CHR (ZEICHEN) ) 
END; 


FROCEDURE MALE? (X,Y zINTEGER5 ZEICHEN :CHAR) 5 (#*MALE AUGENZAHL*) 
BEGIN 
MOVETO (X-18,Y) 5WCHAR (ZEICHEN); 
MOVETO (X,Y-35) 5WCHAR (ZEICHEN) 
END; 


PROCEDURE KARTENMALEN;3 
VAR 
0,1,X,Y :INTEGER3 
ZAHL :STRING; 
BEGIN 
FENCOLOR (NONE) 5 
FOR Q@ := 8 TO 1 DO 
BEGIN 
Y:= 81-(0*649)5 
FOR I := 1 T035 
BEGIN 
X := (159) 











VIEWPORT (X,X+28,Y,Y+43)5 
FILLSCREEN (BLACK) 
END 
END; (*FOR KARTENINHALT LOESCHEN *#) 
VIEWFORT (8,279,8,191)5 
FOR @ := 3 DOWNTO 2 DO 


(*KARTE*) 


Ss1 +(1859)35 
SPIELER [0,1,21 OF 
MALE1 (X, Y,18)5 
MALE1 (X, Y, 1695 
MALE1 (X, Y,1795 
3: MALE1 (X,Y,19) 
END; (#CASE*) 
CASE SPIELER [9,1,11 OF 
1:MALE2 (X,Y,”7’)5 
2:MALE2 (X,Y,’8°”9)5 
3:MALE2 (X,Y,’9°)5 
4:MALEZ (X,Y,”Z”)3 
S:MALE2 (X, Y,"’B’)5 
6:MALEZ (X,Y,’D’)5 
7:MALE2 (X, Y,’K’)53 
8:MALE2 (X,Y,’A”) 
END (#*CASE*) 
END (#FOR*) 
END (*FOR Q*)5 
MOVETOD (242,3@)5 WSTRING (” >35 
MOVETO (242,3@)5 WINTGER ( ABZ (2995 
IF SIEBENER THEN 
WSTRINS (°.5”)5 
MOVETO (232,28); WSTRING (° "ys 
MOVETO (232,2@)53 WSTRING (FARBE [FCODE)) 
END; 


FROCEDURE AUSTAUSCH (VONSP,KARTE1,ZUSP,KARTE2 : INTEGER) 5 
VAR 
MERKE1 ,MERKE2,MERKES,MERKE4 =: INTEGER; 
BEGIN 
MERKE1 
MERKEZ 


SPIELER [VONSF,KARTE1,1]5 
SFIELER [LVONSF,KARTE1,215 
MERKEES SFIELER [ZUSP,KARTE2,1]5 
MERKE4 SFIELER [ZUSP,KARTE2,2]5 
SFIELER [ZUSF,KARTE2,1] MERKE135 
SPIELER [ZUSF,KARTE2,2]1 MERKE23 

SFIELER [LVONSF,KARTE1,1] MERKES: 
SPIELER [VONSF,KARTE1,2] MERKE4 
END; 


FROCEDURE UEBERGABE (VONSF,ZUSF : INTEGER) 5 
VAR 
I : INTEGER;3 
BEGIN 
FOR I := 1 TO KARTENPROHAND DO 
BEGIN 
SPIELER [ZUSP,I,1]1 : 
SPIELER [ZUSP,I,2]1 : 


SPIELER [VONSF,I,1];5 
SPIELER [VONSF,I,„2] END (#FOR*) 


END; 





PROCEDURE EINGABE; 
VAR 














CHAR1,CHARZ ZCHAR3 
PAUSE : INTEGER3 
FLAG zBOOLEAN; 
BEGIN 
IF SPASS OR AUSWERTEN THEN 
BEGIN 
AUSWERTEN := TRUE3 
EXIT (EINGABE) 
END; 
IF ((AUSSETZEN MOD 2)>8) AND FLAGAUSSETZEN THEN (* IST UNGERADE ? *) 
BEGIN 
FLAGAUSSETZEN :=FALSE3 
EXIT (EINGABE) 
END; 
IF SSCHIEB AND CSCHIER THEN 
BEGIN 
AUSWERTEN := TRUE3 
MOVETO (9,95 
WSTRING (”DURCHGESCHOBEN, AUSWERTUNG FOLGT !”)5 
FOR PAUSE :=1 TO 39988 DO; 
EXIT (EINGABE) 
END; 
SSCHIEB :=FALSE3 
REPEAT 
MOVETO (8,8) 5; WSTRING (’EINGABE -> °)5 
NOTE (25,39) 5 
READ (CHAR1)3 
WCHAR (CHAR1) 3 
IF (CHAR1 = "1”’)OR(CHAR1 = ”2”)OR(CHAR1 = 3°) THEN 
BEGIN 
WSTRING (” GEGEN ”)5 
REPEAT 
READ (CHAR2) 
UNTIL (CHAR2="1”) OR (CHAR2=’2’) OR (CHARZ2=’3°’)5 
WCEHAR (CHAR2)I 5 
AUSTAUSCH (3,ORD (CHAR1)-48, 2, ORD (CHAR2) -48) 5 
FLAG :=TRUE5 
KARTENMALEN 
END (*IF x*) 
ELSE 
IF CHAR1 = ”A” THEN 
BEGIN 
WSTRING (° — ALLE AUSTAUSCHEN’ )3 
FOR FAUSE :=1 TO 3888 DO; 
UEBERGABE (3,5) 5UEBERGABE (2,3) 5 UEBERGABE (5,2)5 
KARTENMALEN 
END 
ELSE 
IF CHAR1 = °S’ THEN 
BEGIN 
WSTRING (” — SCHIEBEN’)3 
FOR FAUSE :=1 TO 25@@ DO; 
SSCHIER := TRUE 
END 
ELSE 
IF CHAR1 = ’F” THEN 
BEGIN 
WSTRING (” — FASS”’)3 
FOR PAUSE :=1 TO 2598 DO; 
SPASS := TRUE 
END 
ELSE 
UNTIL (CHAR1 =" A’ )OR (CHAR1="S” )OR(CHAR1="P’)OR(FLAG =TRUE) 5 
IF AGZ(2) =31 THEN 
BEGIN 
AUSWERTEN :=TRUE3 

















FOR PAUSE := 1 TO 2888 DO; 
MOVETO (8,98) 53WSTRING (° 
MOVETO (2,@)5WSTRING (’%*%** DU HAST 
FOR PAUSE := 1 TO 2989 DO; 
EXIT (EINGABE) 
END53 
FLAG :=FALSE: 
MOVETO (8,98) 5; WSTRING (° 
END; (*EINGABE*) 


FROCEDURE COMPUTER; 
VAR 
ABLEGEN, AUFNEHMEN, MERKAUFNEHMEN, MERKABLEGEN : INTEGER3 
ZAHL, PAUSE : INTEGER35 
BEGIN 
IF CPASS OR AUSWERTEN THEN 
BEGIN 
AUSWERTEN :=TRUE3 
EXIT (COMFUTER) 
END; 
IF CSCHIER AND SSCHIER THEN 
BEGIN 
AUSWERTEN :=TRUE35 
MOVETO (9,9)5 
WSTRING (” DURCHGESCHOBEN, AUSWERTUNG FOLGT !”)5 
FOR FAUSE :=1 TO 398966 DO; 
EXIT (COMPUTER) 
END; 
MOVETO (8,95 
WSTRING ("COMPUTER -> 95 
ZAHL := AGZ (15 
MERKAUFNEHMEN := @ 5MERKABLEGEN :=8;5 
FOR ABLEGEN := 1 TO KARTENFROHAND DO 
FOR AUFNEHMEN := 1 TO KARTENPROHAND DO 
BEGIN 
UEBERGABE (1,4935 
UEBERGABE (3,5995 
AUSTAUSCH (5, AUFNEHMEN, 4, ABLEGEN) 5 
IF AGZ (4) > ZAHL THEN 
BEGIN 
ZAHL := AGZ (495 
MERKAUFNEHMEN = AUFNEHMEN; 
MERKABLEGEN := ABLEGEN 
END (#IF*) 
END; (#FOR AUFNEHMEN : FOR ABLEGEN*) 
IF AGZ (2) > ZAHL THEN 
BEGIN 
WSTRING (”ICH TAUSCHE ALLE AUS 
FOR FAUSE := 1 TO 59988 DD; 
UEBERGABE (1,4); UEBERGABE (3,1) 5 UEBERGABE (4,395 
KARTENMALEN 
END 
ELSE 
BEGIN 
IF MERKAUFNEHMEN = & THEN 
BEGIN 
IF CSCHIERB THEN 
BEGIN 
WSTRING (’ICH FASSE !”)5 
FOR PAUSE := 1 TO 35998 DO; 
CPASS :=TRUE 
END (*#PASS#) 
ELSE 
BEGIN 
WSTRING (”ICH MUSS SCHIEBEN !”)5 
ESCHIER :=TRUE 























END 
END 
ELSE 
BEGIN 
CSCHIEB :=FALSE;5 
WSTRING (”ICH NEHME KARTE "95; 
WINTGER (MERKAUFNEHMEN) 53 
FOR PAUSE := 1 TO 4996 DO 5 
AUSTAUSCH (3, MERKAUFNEHMEN, 1, MERKABLEGEN) 5 
KARTENMALEN 
END (*ELSE*) 
" END; (*ELSE#*) 
IF AGZ(1) =31 THEN 
BEGIN 
AUSWERTEN :=TRUE;5 
FOR PAUSE := 1 TO 2998 DO; 
MOVETO (8,8) 5WSTRING (” 
MOVETO (8,8) 5WSTRING (’*%*%* ICH HABE 31 ***”);5 
FOR PAUSE := 1 TO 2969 DO; 
EXIT (COMPUTER) 
END; 


FOR FAUSE 1 TO 83998 DO ; 


MOVETO (9,8)5 WSTRING (” 


END53 


PROCEDURE AUSWERTUNG; 
VAR 
I,„X,X1,Y,FAUSE,TON : INTEGER5 
BEGIN 
MOVETO (9,8) 5WSTRING (’ 
Y :=18@; 
FOR I := 1 TO 3 DO 
BEGIN 

X1:=(1#55)+315 

VIEWPORT (X1,X1+28,146, 1895 

FILLSCREEN (BLACK) 5 

X = 51 +(1859)5 

CASE SPIELER [1,1,2] 

a: MALE1 (X,Y,18)5 
12 MALE1 (X,Y,16)95 
2: MALE1 (X,Y,1795 
32 MALE1 (X,Y,19 

END; (*CASE*) 

CASE SPIELER [1,1,13 OF 
1SMALE2 (X, Y,"777)3 
22MALEZ2 (X,Y,’8”)5 
3S:2MALE2 (X,Y,’9”)5 
4:MALEZ2 (X,Y,”Z’)3 
S:MALE2 (X,Y,’B’)5 
6:MALE2 (X,Y,’D’)5 
7:MALE2 (X,Y,’K”)5 
8:MALE2 (X,Y,’A’) 

END: (*CASE*) 

FOR FAUSE := 1 TO 8 DO 

BEGIN 
TON := & * PAUSE; 
NOTE (PAUSE,15) 

END (*FOR PAUSE*) 

END; (*FOR*) 
VIEWPORT (8,279,8,191)5 
MOVETO (242,17@)53 WINTGER (AGZ(1))35 
IF SIEBENER THEN 
WSTRING (”.5”)5 
MOVETO (232,16%8)5 WSTRING (FARBELFCODEI) 3 
MOVETO (9,035 
GEWINNER :=85 

















IF (AGZ(1)=398) AND (AGZ(2)=3@) AND SIEBENER THEN 
GEWINNER 23 
IF (AGZ(2)=3@) AND (AGZ(1)=39) AND SIEBENER THEN 
GEWINNER :=15 
IF (AGZ (1) > AGZ (2)) OR (GEWINNER=1) THEN 
BEGIN 
FOR TON := 5 TO 35 DO 
NOTE (TON,1835 
GEWINNER :=15 
WSTRING (”ICH HABE GEWONNEN 
END; 
IF (AGZ (2) > AGZ (1)) OR (GEWINNER=2) THEN 
BEGIN 
FOR TON := 35 DOWNTO 5 DO 
NOTE (TON,18)5; 
GEWINNER :=25 
WSTRING (” MIST „ DU HAST GEWONNEN’ ) 
END: 
IF AGZ (1) = AGZ (2) THEN 
BEGIN 
NOTE (19@,48)5 NOTE (29,49) 5NOTE (49,49) ;NOTE (19,44)35 
GEWINNER :=8; 
WSTRING (”--- UNENTSCHIEDEN -—--”) 
END 
END5 


FROCEDURE GROSCHEN (FARBE :SCREENCOLOR3 
X,Y zINTEGER 5 
VAR 
ZAEHLER : INTEGER3 
BEGIN 
PENCOLOR (NONE) 5 
MOVETO (X,Y)3 
PENCOLOR (FARBE) 5 
FOR ZAEHLER := 1 TO 12 DO 
BEGIN 
MOVE (86) 5 
TURN (39) 35 
END; 
PENCOLOR (NONE) 53 
MOVETO (X-3,Y+7)35 
IF FARBE = BLACK THEN 
WSTRING (” °) 
ELSE 
WSTRING (°19”) 
END; 


PROCEDURE KASSENVERWALTUNGS 
VAR 


ZAEHLER,X,„Y,PAUSE,Y1,Y2,X1,X2 :INTEGER3 
BEGIN 
VIEWPORT (9,279,8,191) 5FILLSCREEN (WHITE) 3 
VIEWPORT (85,274,1@,181) 5FILLSCREEN (BLACK) 
MOVETO (12,179)5 
WSTRING (”SPIELER KASSE COMPUTER’ )3 
MOVETO (12,169)5 
WSTRING (” GROSCHEN GROSCHEN’ ) 35 
MOVETO (199,8) 5PENCOLOR (WHITE) S5MOVETO (198,181) 5PENCOLOR (NONE) 5 
MOVETO (174,@)5PENCOLOR (WHITE) SMOVETO (174,181)3PENCOLOR (NONE) 35 
X := 4895 
FOR ZAEHLER := 1 TO SGROSCHEN DO 
BEGIN 
Y = 36 +(ZAEHLER #39); 
GROSCHEN (WHITE,X,Y)5 
END; 
Yi1 2=Y5 X1:=%X;5 

















x :=2405 
FOR ZAEHLER := 1 TO CGROSCHEN DO 
BEGIN 
Y :=38 +(ZAEHLER *3@) 5 
SROSCHEN {WHITE,X,Y)53 
END; 
Y2:= Y3X2:=%5 
X :=1185 
FOR ZAEHLER := (3-SGROSCHEN) DOWNTO 1 DO 
BEGIN 
Y :=159-(ZAEHLER *39)5 
GROSCHEN (WHITE,X,Y)5 
END; 
x :=1515 
FOR ZAEHLER :=" (3-CGROSCHEN) DOWNTO 1 DO 
BEGIN 
Y :=159@-(ZAEHLER #39) 5 
GROSCHEN (WHITE,X,Y) 5 
END; 
FOR PAUSE := 1 TO 2998 DO; 
IF (CGROSCHEN=@) AND (GEWINNER 
BEGIN 
ENDE :=TRUE3 
EXIT (KASSENVERWALTUNG) 
END; 
IF (SGROSCHEN=@) AND (GEWINNER 
REGIN 
ENDE :=TRUE3 
EXIT (KASSENVERWALTUNG) 
END; 
IF (CGROSCHEN=#) AND (SGROSCHEN=8) AND (GEWINNER=#) THEN 
BEGIN 
ENDE :=TRUE3 
EXIT (KASSENVERWALTUNG) 
END; 
IF <(GEWINNER=#) OR (GEWINNER=1) THEN 
BEGIN . 
MOVETO (19,2@)5 WSTRING (’ZAHLEN !”)3; 
FOR ZAEHLER := # TO 3 DO 
BEGIN 
NOTE ((ZAEHLER*#19),8)5 
xX1 :=X1+(ZAEHLER*13) 35 
GROSCHEN (WHITE,X1,Y1)5 
FOR PAUSE := 1 TO 1198 DO; 
GROSCHEN (BLACK,X1,Y1)35 
END: 
GROSCHEN {WHITE,X1,Y195 
SGROSCHEN :=SGROSCHEN-13 
IF SGROSCHEN=8 THEN 
BEGIN 
MOVETO (18,28) 53WSTRING(’Du schwimmst”)3 
FOR PAUSE:=1 TO 25988 DO 
END; 
MOVETO (19,28)5 WSTRING (” ae) 
END; (#IF*) 
IF (GEWINNER=8) OR (GEWINNER=2) THEN 
BEGIN 
MOVETO (189,28) 5 WSTRING(’ZAHLEN !”);5 
FOR ZAEHLER := 8 TO 53 DO 
BEGIN 
NOTE ((ZAEHLER*#1@) ,8)5 
X2:=X2-(ZAEHLER*15I 5 
GROSCHEN (WHITE,X2,Y2)5 
FOR PAUSE :=1 TO 1192 DO; 
GROSCHEN (BLACK,X2,Y2)5 
END3 























GROSCHEN (WHITE,X2,Y2)5 
CSROSCHEN :=CGROSCHEN-15 
IF CGROSCHEN =# THEN 
BEGIN 
MOVETO (188, 29) 5WSTRING(’ Ich schwimme’); 
FOR PAUSE :=1 TO 2598 DO 
END; 
MOVETO (189,29) 5WSTRING (” 75 
END; (*IF*) 
FOR FAUSE :=1 TO 4998 DO; 
NOTE (49,199) 
END; 





PROCEDURE ABSCHLUSS5 
VAR " 
ZAEHLER : INTEGER 5 
CHAR1 ZCHAR;5 
BEGIN 
NOTE (59,124); NOTE (45,129) ;NOTE (49,128) ;NOTE (35,129) 35 
VIEWPORT (9,279,2,4@)53 FILLSCREEN (WHITE) 5 
VIEWFORT (38,249,19,39@) ;FILLSCREEN (BLACK) 5 
IF (CGROSCHEN=#) AND (SGROSCHEN=8) THEN 
BEGIN 
MOVETO (49,185 
IF GEWINNER =1 THEN 
WSTRING(” DU PECHVOGEL !”)35 
IF GEWINNER =2 THEN 
WSTRING (” ICH GRATULIERE !°)5 
IF GEWINNER =@# THEN 
WSTRING (” * * * UNENTSCHIEDEN 
END 
ELSE 
BEGIN 
IF CGROSCHEN =# THEN 
BEGIN 
MOVETO (498,18) 5WSTRING (” DU HAST MICH GESCHAFFT !?) 
END5 
IF SGROSCHEN =8 THEN 
BEGIN 
MOVETO (498,18) ;WSTRING ("UEBUNG MACHT DEN MEISTER !’) 
END 
END; (#ELSE*) 
FOR ZAEHLER := 1 TO 3928 DO 
BEGIN 
IF KEYPRESS THEN 
ZAEHLER :=39095 
END; 
READ (CHAR1) 








END; 


FROCEDURE START; 

VAR 
CHAR1:CHAR;3 

BEGIN 
INITTURTLE;5 
PENCOLOR (NONE) 5 
NOTE (398,58 );NOTE (35,59 )35NOTE (49,59 95 
GROSCHEN (WHITE, 6%, 12@) 5; GROSCHEN (WHITE, 86, 128) 5; GROSCHEN (WHITE, 199,128) 5 
FOR PAUSE := 1 TO 1998 DO; 
GROSCHEN (WHITE, 198,89); 
FOR PAUSE := 1 TO 1998 DO; 
GROSCHEN (WHITE, 149,8%) ; GROSCHEN (WHITE, 189,89) 5 
FOR FAUSE := 1 TO 1986 DO; 
GROSCHEN (WHITE,189,69)5 
FOR FAUSE := 1 TO 1998 DO; 
GROSCHEN (WHITE, 189,29); 

















FOR PAUSE := 1 TO 1999 DO; 
GROSCHEN (WHITE,129,49)5 
FOR PAUSE := 1 TO 1298 DO; 
GROSCHEN (WHITE, 1929,29) 35 
FOR PAUSE := 1 TO 1998 DO; 
GROSCHEN (WHITE, 6%,%) 3; GROSCHEN (WHITE, 898,8) 5; GROSCHEN (WHITE, 199,9) 5 
FOR PAUSE := 1 TO 1998 DO; 
GROSCHEN (WHITE, 199,199) 5 
FOR PAUSE := 1 TO 1999 DO; 
GROSCHEN (WHITE, 89,69) 5; GROSCHEN (WHITE, 199,69) 5 
FOR PAUSE := 1 TO 1998 DO; 
GROSCHEN (WHITE,189,129@)5 
FOR PAUSE := 1 TO 1992 DO; 
GROSCHEN (WHITE, 169,198) 5; GROSCHEN (WHITE, 188,199) 3 
FOR PAUSE := 1 TO 199% DO; 
GROSCHEN (WHITE,189,49)5 
GROSCHEN (WHITE, 1898,9)5 
MOVETO (198,175)5 WSTRING(’>>> KARTENSPIEL 31 <<<’); 
MOVETO (38 „16@) 53WSTRING(’COPYRIGHT BY ”)5 
MOVETO (129,169) 3WSTRING (” Frank Brall’);5 
MOVETO (129,159) 53WSTRING (” am 28.925.83”)5 
READ {CHAR1)3 
FILLSCREEN (WHITE) 5 
VIEWPORT (19,269,1@,181)5 FILLSCREEN (BLACK) 5 
PENCOLOR (NONE); 
MOVETO (39,16%) 5 WSTRING (” TASTENBELEGUNG : ”)5 
MOVETO (39@,145)5 WSTRING (’ >P< PASSEN ”)5 
MOVETO (38,135)5 WSTRING (° >5< SCHIEBEN ”)5 
MOVETO (39,125)5 WSTRING (” >A< KOMPLETT AUSTAUSCHEN’ )3 
MOVETO (398,11@)5 WSTRING (” >1,2,3< EINZELN AUSTAUSCHEN’) 35 
MOVETO (39,89) WSTRINGS (”KARTENWERTE : >38 
MOVETO (39,65) WSTRING (” <7>=7 <8> ”)5 
MOVETO (398,55) WSTRING (’ <9>=9 <18> ”)5 
MOVETO (34,45) WSTRING (” <B,D,K> =18 <A> ”)5 
MOVETO (39,39) WSTRING (° 3 SIEBENER ZAEHLEN 398.5 AUGEN °’)5 
MOVETO (496,15) WSTRING (’Moechtest du beginnen ? ”);5 
READ (CHAR1)3 
AUSSETZEN :=25 (*GERADE *) 
IF CHAR1 = ”’N’ THEN 
AUSSETZEN :=15 (* UNGERADE *) 


u 


ww 


END; 


BEGIN 
REFEAT 
START; 
CGROSCHEN := 
ENDE :=FALSE 
REPEAT 
INITIALISIEREN; 
KARTENHOLEN5 
KARTENMISCHEN5 
KARTENAUSTEILEN5 
KARTENMALEN5 
WHILE NOT AUSWERTEN DO 
BEGIN 
EINGABE; 
COMPUTER 
END; 
AUSWERTUNGS 
FOR PAUSE := 1 TO 3898 DO; 
KASSENVERWALTUNGS 
AUSSETZEN :=AUSSETZEN +1 
UNTIL ENDE; 
ABSCHLUSS 
UNTIL CGROSCHEN >198 (* KEIN ABBRUCH MOEGLICH *) 
END. 


35 SGROSCHEN :=3;5 
3 

















Börsenspiel 


Ziel des Börsenspieles ist es, durch ge- 
schickten Einsatz von Spielkarten Aktien 
billig zu kaufen und teuer abzustoßen. Da 
der Computer der Gegner ist, ist dieses 
nicht gerade einfach. Das Spiel erklärt 
sich selbst und daher soll hier dem Leser 
überlassen sein, sich Strategien gegen 
den Computer auszudenken. 
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Station- 
Defender 


Ihre Station wird angegriffen und Sie 
sollen sie verteidigen. Um die Sache noch 
spannender zu gestalten können Sie am 
Ende, sofern Sie eines der besten Ergeb- 
nisse erzielt haben, sich in einer Bestenli- 
ste verewigen. 

Teile des Programms sind zur Beschleunigung der gra- 
fischen Fähigkeiten in Maschinenaprache geschrie- 


ben worden. Die Routinen befinden sich im 2. Kasset- 
tenbuffer. 
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10330 IE=IB+1a0:BP=BP2 :BM=BM/2 :BA=BAFZ2 RETURN 
10400 BP=BP+100: 1B=1B-2:BH=BM/Z:BA=BAFZ RETURN 
10415 BA=ER+1A0: TE=1B/2 :BM=BM/2 :BP=BP/2 RETURN 
10428 Bri=BH+100: 1E=1B72 :BA=BA/Z :EP=BP/Z RETURN 
10438 IB=1B-100:EP=BP#2 :BM=BM#2 :BA=BA#2 :RETURH 
10440 BF=EP-108: TE=1E#2 :BM=BMHZ :BA=BA#Z :RETUFRN 
10458 ER=BA-100: TE=1E*2 :BM=BMKZ :BP=BPF2 :RETURN 
10468 Brl=BM-100: 1E=1E#2 :BA=BA#Z :EP=BF#2 :RETURN 
10470 IE=IB2:EA=ER+SE:EP=BP+SB :EM=EN+SE RETURN 
1420 EP=BP/Z :BA=BA4+S0:1B=1B+50 :BM=BM+SE RETURN 
10420 BA=EA/Z:EP=EP+SA:IB=1B450 :BM=EN+SR RETURN 
10596 Er=BN’2:BP=BP+SG: 1B=1B+54 :BA=BA+SE RETURN 
1asıa IB=1B-50:BA=BR+ 100 :BP=EP+198 :BN=BH+1AG:RETURN 
10528 EF=EP-50:BA=ER+100: IB= 164100 :BNM=BN+1O0 RETURN 
10538 BA=BA-S2:BP=BP+100:1B=1E+100 :EM=BI+1AR RETURN 
14548 EM=BM-50:BP=BP+10G:1B=1E+106 :BA=BA+1OG:RETURN 
15550 DIMZ<2a) ‚Bti2a) .AC21),Bi20) .A$l20) ıKS=10000 : IE=1AR : Be IE :EA=BIM:EP=BA RACE 

=20 
10560 Asll)=" IBMk2:REST-Sa" 

10570 Atk2)=" BP #2:REST-SB" 

10530 A$l3I="BASFHZ:REST-SO" 

10590 A$c4)=" EMUEZ:REST-SA" 

1asaa A$(S>=" IBM+1OB:HREST/Z" 

1as1a Atk&ö)=" BP +100:REST/2" 

1a620 si? )="BASF+LOM:REST/Z" 

1a530 Asl8)=" BMMHLOBHREST/Z" 

1as4a A$i9)=" TBM-109:RESTK2" 

1asSa Atk10)=" BP -100:REST#Z 

1asEa Ati l1d="BASF-1A0:RESTEE 

10670 Asl12d=" BMU-LOG:RESTKZ 

1assa As«12)=" IBM/2:REST+SA 

10690 Aslid)=" BP/Z:REST4SA 

1aras Al 1S>="ERSF/Z2:REST+SA 

10718 Ascie)=" EMW2:REST+SE 

1or2a Aslir)e" TBM-SA:REST+1OR 

10730 Arcilö)=" BP-SO:REST+1CA 

10740 As«19)="BASF-SA:REST+1AA 

1arsa Atk205=" EMW-SG:REST+1aA 

10780 FORN=1TORCED+LERCNI=HENEHT 

10FFE FORT=1T013 

1araa G=INTERNOKAIFLRI+LIFZÄGI=1THENLATSA 
1790 BETI=ACBN:ZCGI=1 ıNEKT 

1asaa Er2ab=2c 

12318 FORT=1TÜ2EGESKTI=ASLCEETII NEXT 

1asza FORT=1TO2E:BCTI=BEALTII ENEXT 

10224 FORT=1TO2 ASK TI=BECTIERCTI=BETIENEKT 
1aada PRIHT" DER IHRE SPIELKARTEN" SPRINT" SI" 
1a25a FORA=1TIIAEPRINTTABK IA FAFASCHI EHERT 
1aS50 PRINT" I ELECRETURM>" 

1a8F7a GETA$:IFASCICHREL SD THENLASFO 

10388 PRINT"IN SRÜERSENKURSEM" ; : PRINT": KAPITAL="KS-K 





1aaaa PRINT" ———— 
1g322 FRIHT"IAKTIE | PREIS | STUECK | WERT | KAUF |" 
1a>1d FÜRT=1TO4 

lasza FRINT" Lu ll —! 
12222 PRIMT" SIsIeieiefets]" > 

1224 PRINT"E" TABKZ>R" ITEM" STARKOSIHIBHTABCATI GL ETABCESI HGLHIEHTABCEDI HS INPUTA 
I 

aaa FRINT"W"HTABSEIR" BP" STARKER) HBFFTABCLTIFGZETARLESI GIER TABCEED 3: INPUTA 
2 

lass FRINT"M"STAELEIR" EM" TABLE) FEMFTABCIF) GEH TABC2SI GEHE FTARN SEI HE INFUTAR 
1aara FEINT"E" TABLE" BA"STABCEIHBAFTABLLFI GH -TABR2SI HG4RBA:TAEKI2) HH INPUTAG 
iaa22 GOSUBII44E 

lasac Gi=G14A1:02=024A2 26326342 1 04=G44R4 cK=KHALEIBIHÜREHBF IH ASHENMD + CAdEHRR) 
i11cac IFW=ZETHEHNI11ZE 

11c1a FRINT"J"SPRIHTTABK 1A" IHRE SFIELEARTEHMESISISNN" -FÜORA=1TOIS:PRINTTABLSIHAER 
UA) sHE&TSPRIHT 

11lcg22a PRINT" 








11022 IMPUT'TepmhmpELCHE KARTE SETZEN SIE" #WEIFYSIORYPLEOTHENI ABA 

11a4a IFAFLWYd)="ZECHON GESETZT" THENIIOSE 

11054 PRINTTAESI1AIS"AWERASCH) 

11aca OYAKWOGÜSUB1ASSE, LA3SE, 1G2Fa, ja3sa, jaspd, jadsa, jag4ia, 1ad2c, ja42a, Jade, je 
450, 124E0, 14a, jede, lade, 1a, 1aT1a, 1072, aaa, 1054 GOSUEL11SFE 

11ara Asche" BSCHON GESETZT" 

11280 Werl: ÖHMACHIGOSUEIESSE,1O3EA,1a3ra, JasEa, 1a330,1a4aa,jäay4la, ladza,jagzn,ı 
44a, aa laden, 1o4r7a, 10480, a4, 1oTae, 1a51a,1e3za, 1a5za, 1a 

11a>a GOSUELIEDE 

111ac FORL=1TOZAEA:HEHT:FRINT"D ICH SETZE ALS KARTE #"W-16 

11115 PRINT" alla" A&c4> :FORUS=1 TOZadE :NHEHTSGOTOLESSEA 

11124 PRIHT"Z ZEHDKURSE" 

11139 PRINT" m————— 77 

11140 FRIHT" ISAKTIE | FREIS | STUECK | GESAMTWERT |" 

11159 PRINT" ——— = I— —'" 

111282 FRIHT" SIedeleIe]" 

11175 FRIMT"aBITENM" TABK1G>SIERTAEW1DD: 

11124 FRIHTGIFTABNEA>SGIEIB 

11120 FRIHT"BRBREF";TAEC1G);BFSTABN13) 62; TABCIOI G2HER 

11200 FRIHT"RRENMM"STABC LE HEM-TABK 192 03: TABL IA ZGSHEM 

11210 FRIHT"BERSF" STABILE SBAFTABE1SI GH STABK IE GAR 

11226 FRIMT" Melelaaj" 

11224 FRINT"SAUSGAHGSKEAPITACH: 

11240 B=KS-K:REM 

11256 PRINT" BAREAPITAL BE "B"CM 

11220 A=61#TE+GE#BP+63#BM+-O4HBRAGREM ##+#A-WERTE#H 

11276 FEIMT"3 AETIENKAFITAL WACH 

11220 T=EB+4A:'r=KS-T:IFrZ=äTHENFRIHT" GEHINH M:";:50T0113aC 

11232 PRINT" VERLUST w:"; 

11220 PRINT"W'RBSCT"DM 

1131& FRIMT"TIIIEITHOCH EINMAL STend 7" 

11324 GETAF:IFAFTI" T"ANDAF<S>"H"THEH11SZO 

11334 IFA$="H"THENPRINT"Z" SEHCGEND 

11244 PRINT"D" :FÜRT=ATO33 :POKES27SS+T, 132: PÜKESSTET-T, 132 :NEAT :FÜRT=1 T024 :FOKES 
Erss+Tr4a,.221 

11350 FOKEIFTET-T#H4E,221 :NEHTSPRINT"SI" 

113E0 POKESZTES,. 244: FOKE3R2807 „ZIEH FÜKESFTET, ZI: FOKESSTZR, 237 

113724 FRIMT"S':FÜORT=1T0OS:FRIHT"" SHE#ST 

112220 PRIHT'ERRRRBBIATCH MISCHE DIE KARTEH"GSCLREN=12:GOTCH STE 

113>@ IFIBX=äTHEHIE=14 

11456 IFEPZ=@THENEF=10 

1141& IFER THEHBA=1& 

11426 IFEMZI=ÖTHENEM=18 

11420 RETUFH 

11446 REM SWERD-KAUFSLIMIT 

11450 Ger Al#IEDHLBPFAEIHÄAFFEMDHTA4EERR> 

11460 IFK+G>KSTHEHFRINT"IBIHR GELD REICHTE FUER DIE TRANSAKTIONEN MICHT AUS" 260 
Ta1i4>a 

11470 IFGL+RLSOORGE+A2LEORGSHAFLAORG4H+-AHTETHEHFRINT"IEEIE HABEN ZUVIEL VERKAUFT 
":5oTülig4ae 

11426 RETUFRH 

11422 FRIHMT'"BESEINGABEN MIEDERHÜLEN!"G:FÜRT=1TOZARE :NEHT:GOTOIASSE 
READY. 





aa GOTOZZE HE 
11a 
126 
130 
148 


# 
# STATIÖON-DEFEHNDER 
# 
# 
150 # 
# 
# 
# 


cEM Sad 


1g0 
ira 
12a 
128 
PelslseE 21225020215, 2 02,202, 20 20202 202020202020 272 7202 

zıa 

z2a DATA1S2,3,159,183,3,132,1,183,.187,3,.133,2,180,0,177,1,201 

z2a DATA42,240,41,1659,.0,157,172,3,169,3,157,193,3,183,128,157,187 


DRESDEHNERSTRASSE 11 


# 

# 

# 

# 

# 
GISEERT LÜFF # 
# 

E33 SCHRIESHEIM # 
# 

# 





222,154,255,13 
DATRAIs43.G, 41.2,24, 165,1,157,175,3,138, 
DATAFE,ET,DE 


‚Bd. 133,2.78. 112,26. 234, = 4,104, 24, 191. 54 
DATAIES.2Z,.105,0,133,2,76, 112,26 ,234.160,0,177,1,.201.32,240 
DATAS 281 240,4,169,255,133,0,.189,42,1945,.1,.96, 188,187 ,.1 
EATAS1,.40,.32,.122,169,0,0,0 


DATA4.S,5,5.5, s »3,3,.5,.4,.4,4,4,4,4- Hed, 
Sallesea rs 


%“S 


” 
ja Br Pr Se A 
De 


EUOERBARG EN 


= 


DATA 3 

DIATA "a.128.1 
DATA Apr a 
DATA 2, 7,1,73 
CıATA „145,1 ,200 
DATA 


3.133,1,199,187 


DATA3,201,2,.208,65,32 26,76,144,.2,201 2 22 
DATA2S.768,144,2,3 26.234,224 104,170, 255 ,240,22 
DATAIST 17 „157 ,1982,3,165,2.157 ,187,3 a1 .0,240 


DATA4,202, S,a,60,.0,0,0,0,0,0,0,0,.0,0,0 g,c 


SIT III TUST TI TT TEE TEE TER TEE To TER TOR TEre TER PERS 
III TI TTTI TTS TITTEN TE Tee TE Tiger TE: Ta TE TB TEE 
SOCALEHIOHIEHT ST IST SIT IITTT TI IE DER Ta Tor TER Tiger TERc TER TI Rei 
IIENSEIEIER IE T III TI TI TI TTTTT TI T TER TE Tip Tür Tg TE TE TE 0 Te 


FRIHT'TERBISSFIELSTART IN SEKUNDEH I" 


Er 


br} 


PRINT" 
PRINT" 
PRINT" 


her 





oda 
1550 
acc 
170 


1248 
1354 
13650 
1370 
1320 

13396 
i4a0 
1418 
1426 
1436 
1442 
1456 
1450 
1476 
1456 
1492 
ısad 


ısı0 1 


ser 1111111111717 ST 


Iryte ITHEN1SIE 


FÜRA=ETÜS:FOKEF434+A,.A+1 :FOKES474+R E:POKESSI+HA,.2:PÜKESSSHA 128 :NERT 
TIt="acaaaa" 


FRIHT"S"RIGHT$ETIE 22 
25STHENT=TI:GCTO111E 
> 
24+THEHFRINTASLID, a :FÜKESI4SS , 1acı 
:THEHFRINTA& ‘23 sPÜKESPIEF, sa 
THEHFRINTA$ 
THEHFRIHNTAFL 


TET1a> 
S828 :NEXT:FOKESP4ST,E 


IMT'RUBEMTSCHEN ‘ 2">T:5=5+T:FRINT'USSGESAMT- PUNKTE 2" 25 

=EZE-1: IFZZ=ATHENI 
FRIHT"NERRIEERIGE STATIONEN:" ZZ 
FRIHT"BBITASTEHDRUCK FUER HAECHSTEH KAMPF" SPOKEISE,A 
GETAEFSIFAF=""THENL ISA 
GOTOSSE 
FRINT"SBIIHRE LETZTE STATION MURDE ZERSTÜERTI" 
FÜFKE1SS.E 
FÜRFA=1TOSSIFSFSEA>THENIZHE 
HE#T:GOTO1SZE 
FÜRB=4TO Sc Dein sihrß+rldeiFlE) sHEHT 

‚IE IHRE INITIRLEN EIN 

FORAA=1TOS 
GETAF :IFAF="" THENIET 
IFAFT>CHREL IE THEHEF=AF 
IFAF=CHRELLSIANDEF=" " THENES="—" 
FRIHT" SJeIsJegsp]" TAELSOHARD BE 
IFA CHREC1IS>THENIEFE 
5 +B# :NEHT =est:öte"! 
FREINT'TERBRBRRISETATICH DEFENDER 
FRIHT"ENTÜODAYS" HIGHEST SCORES 
[3:74.18] ass; 
FORA=1T0OS: IFEFRAITCH" "THENFRINT" 
IFA=1THEHFRINT" 
PRINT" EBISSFIELANMEISUNG" 
FEINT'"BBWERTEIDIGEN SIE IHRE STATION!" 
PRINT" ZUM SCHIESSEN BENUTZEH SIE DIE TASTEN:M" 
FRINT" Ss 
FRINT" Fa E PR ANcı ] a 5 
PRINT" 14 KB HIT ANT KEY ze: 
FRINT" Kern! TO START GAME 
PRINT" 
PRINT" MEREICHEN SIE EINES DER S BESTEN ERGEB — HISSE,DUERFEN SIE IHRE "+ 
PEIHT"INITIALEN EIN —- GEBEN < HACH JEDEM BUCHSTABEN SRETURNM III" 
TIs="aaaacıa" 
GETAF :IFAFZ>" " THEN1SFO 
IFYALSTISISSTHEHI4FE 
[a Ts Tu Ts TE 


PIEL. =: ® 
TATIOHEN 





1228 
1530 
—_ 

SSE 
= 21-15] 
1574 
1586 
1538 


TIS:POÜREP43+A.A+1 :POKE3474+A ,8:POKESS1+A,.3:POKEISS+A -128:NEKT 
YYy=1:60T087E 
GETA$: IFAF$I>"" THEN1SFA 
Y=0:51735852: FORA=1TO4:PRINTASCASFBECRD SENEHTESFEFOOS : IFYALSTISISSTHENIS4O 
SY5832 : IFFEEKLEN=ZSSTHENYY=1:GOTO1110 
#=IHNTSRHOC1IH4 +1 :PRINTAECH Ein) SVSraag 
FORA=STOSE:NEHT :GETAF : IFA 'THEH1SEE 
T=8:5=4:22=2:60T0838 





Steckerspiel 


Die Regeln sind aus dem Listing ersichtlich. Wer nicht 
so viel abschreiben möchte, kann die Zeilen 210 bis 340 
und 1170 ff (Spielanleitung), sowie alle REMs ersatzlos 


streichen, füge allerdings die Zeile 


20 ISTECKERSFIEL 
118 !IDEFINIEREH VON ZEICHEN 
SHETZE» DIMENSIÜUHNEN, FARBE 
UMLAUTE 
128 DEF BLEH>=INTER/I#HSI 
135 OFTION BASE 1 :: DIM AcS 
‚En, UIKd4l, HELEN, ZZGL): EL1S5I 
SPIsC2H 
149 SFISCE1>="11 1111111111111 
11186G41111B8GE1111A9dal111u 
BUSLLLTIELITILLIIIEE ENTE 
158 S$c]l)="ZUG 1234567 
Sal" 28 SECZI="VON 
! LETZTER ZUG1l2" 3: 5$(3)=" 
HACHIl4" 28 S#cd)="BEI FEHLEI 
NGABE “FETN3IZR" 
168 5#(55)="ZUGRUCKNAHME 
<FETNHSIE4" 58 SFCE>="WIE 
DERHOLUNG <FETNEIEZ" 
ı3 SECTI="AUSWERTUNG 
<FETNTAZ22” 
1178 S£(8)="FEHLER 
FEHLER" :: 58 
AUSWERTUNG" 
N STIFTEN WURDEN" 
=" STIFTE ENTFERNT" 
188 S$c1l2)="DIES SIND FPRÜOZE 
HT." B SEIEN MDINE "rn BE 
143="HEUES SPIEL x 
ENTER?" :: S#C157="RuCcKNAHME 
198 CALL CHARK9T: "Bagy4lazagg 
rcag44g4", 111: "aaaaseaagaggaaggas 
E", 117, "Sa44on4444444438", 12 
‚ "GRABEALSISHORBNSNAZISABGE 
nad") 

CALL COLORC12,13,16>13,1 
4,16,14,9, 95:2 CALL SCREEN 
22 
218 DISPLAY AT«lB:.8)ERASE AL 

"STECKERSPIEL":" 
==" 3: DISPLAY ATL 

"AHLEITUNG ERLUNSCHTT < 

yu 

CALL KEWESSK,STIRE 
"74 AHD »78 THEN 228 
238 IF K=T8 THEN CALL CLEAR 
ı: GOTO 358 
2458 !SPIELAHLEITUNG 

DISFLAY ATCISLDERASE ALL 

UF EINEM 5 # S-FELDER-BRE 
TTSING STIFTE VERTEILT. 
{STAHDARTSFIEL AUF DEN ZWEI 
alSSEREN REIHENF" 
268 DISPLAY ATCE: IE "DURCH u 
BERSFRINGEN MUSSEN SOUIEL 
STIFTE WIE MoGLICH ENTFERH 
T WERDEN." 
278 DISPLAY AT<1l8: 153: "EIN ZU 
G BESTEHT DARIN DAS EIN ST 
IFT DIAGONALCSchras> IN EIN 
FREIES FELO GEZÜGEN WIRD." 


280 DISPLAY ATÜIS; DE "ALLE A 


IF K£ 


schreiben. 


HDEREN VERSUCHE HABEN FEHLER 
MELDUNGEN ZUR FOLGE." 
238 DISPLAY AT(18>1 
INER FEHLERMELDUNG: 
ERFRUFE LETZTE EINGABE":"2.G 
EBE NEU EIN." :: GOSUB 11r7A 
386 DISPLAY ATC3»13:"WENN DI 
E EINGABE GEaNDERT WERDEN 
SOLL KANN DIES BEI DER EIN 
GABE NACH DRUCKEN VON CFC 
TN=S> GESCHEHEN." 
s18 DISPLAY ATC9> 15: "GEMACHT 
E ZuGE KoNNEN DURCH DRUCKEN 
VON £FETNI>  ZURUCK-GENOMME 
N WERDEN." 
320 DISPLAY ATC14, 19: "ZUR WI 
EDERHOLUNG DES BISHE- RIGEN 
SPIELES DRuUCKE CFETNS>"S 2 5 
"ZUR AUSWERTUNG DRUCKECFETNT 
>" »: GOSUB 11718 
336 DISPLAY AT<S;13:"DIE NOT 
EN BEI DER AUSWERTUNG": 3" 
1=SEHR GUT": > 
BIS"s =" 12=HUNDSMISER 
ABEL" =: GOSUB 1170 
340 DISPLAY AT(CS:13:"SIE Kon 
NEN JETZT WaHLEN ZWI-SCHEN 5 
TANDARTSFIEL UND EI- GENEN 5 
FIELFELDAUFBAU. " 
358 DISPLAY ATS1l2,19:"STANDA 
RTSPIEL DRUCKE 1": :"E 
IGENE AUFSTELLUNG DRUCKE 2" 
368 CALL KEWC3HIJ,STISS IF I 
J<49 OR IJ>5@ THEN 368 
37a JJ=1J-948 :: IF IJ=1 THEN 
396 ELSE GÜSUE 1198 
350 !SFIELFELDAUFBAU 
338 CALL CLEAR 
4Ba A$=5FIECITD: 
s: FÜR Z=e1 TO S; 
ARC1I+Z>12,64+23 
418 FOR 5=1 TO 5 
42a D=D+l :: ACZ,S>=VALCSEGE 
<A$,D,1>5):: STE=SSTE+RCZ,SHE: 
CALL HEHARCI+Z, 1245; L2T+ACZ 
53» 
436 NEXT 5 :: NEKT Z 
44a IF SPl=1l THEN 1138 
450 FOR T=1 TO 7 :: DISPLAY 
ATCVALSSEGECSFETI,LENESEETDIN 
-1>233, 1) SEG$SCSHCTI > 1»LENSS 
£CT>>-238: NEATT 
468 CALL HEHARSL3,3,45: 119: 
CALL HCHARC13;: 17,339: CALL 
HCHARC13: 24,479 
ara CALL HEHARC12,7,32-95:: 
CALL HEHARC14, 17,232, 935 
4560 IZUGEINGABE 
438 00.P=8 
Saa FOR EHNI=1 TO 2:8: 
sıa FOR EN2=l TO 2 :: 
s28 CALL HCHARCII+BLCE 
‚68,22 


: STE»RR>0=8 


CALL HCH 


210 CALL CLEAR hinzu. 
Achtung: Die Unlaute AOU sind im Programm definiert, 
deshalb bitte die kleinen Buchstaben (a,0,u) wie im Listing 


38 CALL KEWi3,K,STIRE 
{1 THEN 538 
545 CALL HEHARCII+ELCEN I: S+ 
ELCENZ>SKS 
558 IF K=1l AND ER>8 THEN 930 
568 IF # THEN 478 
STa IF K=15 AND FER>@ THEN GO 
su 1048 
Sse8 IF K=6& AND ER>B THEN GOES 
UB 1128 
536 KK=K-48-16#=ABSCENZ-EIr5 
IF KK<1l OR KK>8 THEN 536 
BOB UEP3,HCENEI=KK #3 CALL H 
CHARCII+BLCEN1 DI, 13,32, 2) HM 
EXT ENZ 
618 IF W<£4 THEN ON EN! GÜSUE 
850,870 3: GOTÜ Bl 
28 IF O0=1 THEN 4T& 
538 IUEBERPRUEFEN AUF 
GUELTIGKEIT 
648 IF ABSCSGNCENI-EIIKBACHE 
12>HCZ>>THEN GOSUE Ba 3: Gl 
TO 4T& ELSE 658 
5558 NEXT EN1 
BEB IF ABSEUCIS-UEFBHHKHE OR 
ABSCULZI-UCHYI<CHZ THEN GOSUE 
sag :: GOTO 4TA ELSE 674 
ETA GOSUB BIA :: GÜSUE Sad: 
; GOTO 4TE 
BE8 |ZUGAUSFUEHRUNG 
5938 S1=UC12-CUCII-UKBI HF Hi 
Rl=UC2I-CUCEI UI 72 
Tas IF ACSl»Rlb=] OR K=15 OR 
K=6& THEN T28 
T18 GUSUB 966 :: GOTO 47a 
TEB ALUCLSSUCESI=ABSCAHLUCLD 
Uc239-19 
738 CALL HEHAREIFUEISS IEHUCE 
I LET+REUEL I UKEH DD 
748 ACSI>RLISABSCACEL>RID-1) 
758 CALL HEHARCI+SIS:lZ+HR1: 12 
T+AsSl>Rl>2> 
TER ACUCHISUCHIYISABSCALUG 
Vea>5-19 
TT8 CALL HEHAREIFUCS 
3; LET+ALUC3I: CHI 
188 RETURKH 
T98 TZUGKOOREDINATEH 
sa8 RR=ER+]l :: ZGECRRI="" 
FOR T=1 TO 4 EG#CRRI=Z 
SERIEETRES LT? ® HEKT T 
sıa !ZUG AUF EILDSCHIEM 
SCHREIBEN 
if ı: FOR 


IF ST 


>, 12+UcC4 


GErTeTTEe er 
$=asE" 7" 2: NEXT T 
DISPLAY ATC3, LISIZECBI:R 
DISPLAY ATC1L3>1TISIZELL 
las 2: RETURN 
349 !BLINKEN 
ISO Yay+l 3: CALL GEHAREI+LUIC 








ALL HEHAR:G 


CHARCIHUCISS IE 
B URN 
„L GCHAREL+UCH) 


ALL HECHRA 
LAY ATG 


®: END ELSE CALL C 
GOTO 
LL HCHARCI2 


CALL HCHAR 
CALL HCHARGI 
HCHARC13 


THEN GOSU 
CALL HCHAR« 
LL HCHARC16E, 
RR URN 
IEL NÜCHEINMAL SEHEN 
ATC15, 175: "WIED 
CALL HCHARC1E>1 


HEXT AA 
1198 IF Y<4 THEN GO 


16 DISPLAY 
HFAHNG 


CALL KEYEL: 
THEN CALL MOTIONC#1:8: 85 
GOTO 
IF 5 
THEN CALL 


CALL HEHA 


IF K=4 OR K>S THEN 12 
OH K+l 


ERALL MOTIONC#HL,SHYY, 
CALL ITIONC#L 
6 OR “ 
THEN 
GoTO 12 
TURN 
urt 
RETURN 
RETURN 


Mampfmann für ZX Spectrum 


an Nachbars Äpfeln mächtig vergällen. Auch 
der Zaun ist äußerst scharf geladen und sollte 
auf keinen Fall berührt werden. 


Ein äußerst lustiges Spiel für den Spectrum, bei 
dem der Spieler beim Äpfelklauen auf gefährli- 
che kleine Monster stößt, die einem die Freude 


MAPFHANN 
by Gerd Proschek 


@ Gerd Proschek 
Hannover 


PRINT BRIGHT 1; FLASH 1; IN 
MAMPFHRANN _z##=* 
AT 5,6; FLASH ®; 

"by Gerd’ Proschek 


© Gerd Broscher 
Hannover" 
go_Ta anna 


REM Eintei tung 
cLS 


PRINT INK 2; FLASH 1; BRIGH 

erstırser en -rr 

"; FLASH 8; BRIGHT 

PRINT INK Bauer’ ie sind mi 
ak aan 2; ERBE 


Pr 
ss 


RI a 44 
:C® :TO% 
E: 


32. an 
D-TS9RR U 


D :R- 


INK_@,"} zu stehlen." 
RINT "Leider stehen do 
en„.Kinder des Monst 


Pure 


zu 
BrRi_H7S 


a 


wachen im 
INT "Diese Monster sind s 


BRUHRS MH INH nk Mm 


” 
AnmZS 


ehr nPssssivung gefärlich ! Vers 
uchen Sie nen also auszuweic 
hen ! Auch sen Zaun dürfen Sie 
nicht berühren, denn er is 
t_ sehr scharf 

144 PRINT AT 21,8; "Drücken Sie 
eine Taste” 

ae8 2 RAUBE 1@: PAUSE sooo 


147, ‚BRInT INK 2; BRIGHT 1; FLaAs 
Ei rrrrer re PheRBEBARN Errrr 
var"; FLASH 8; 
PRINT ,,.," 
inmaı ein 
Zaun berühren 
sie das eines 
Sie bekommen 
uartn ein neves 


"i33 ENT, : PRINT "Wenn “ie ga 
€ atle AÄpfeL = 
nen Sie durch Jen Av 
s)in den nächsten Gar 


PRINT. Ar 21,8; "Drücken Sie 
168 PRüse seso 
ELS 
AT Be 8,ı 


; IN! 
207 LET SSinNevs: IF r$="" THE 
N_6D TO_ 287 

288 PRINT AT 2,16; FLASH @; 23 
289 PRINT AT 18, 8; FLASH 1; RI 


SHT_ı 


210 
4 r$_THEN GO TO 
311 ° AT 18, = FLASH @;ds 


yet: IF ds="" OR 


AT 18, FLASH 1; BR 


ar 9$="" OR 


ASH 2:98, 
8 Ei FLASH 1; 


LErnc$=INKEYS: IF 98=c# OR 
HEN GO TO 21 
AT 18,16; FLASH @;c$: 
18 PRINT AT 21,8; "Richtig so 7 


Lan} 
219, IE INKeygz" 3" OR INKEY ur 
Raul " OR INKEY 


238 
K 2; FLASH 1; BRIGH 
335 ARENT „EN HANBEHANN” Frir7} 


HT 
‚@; INK Or Henlen 
Sie die Schwiefigkeits- tufe 

x rs pree Am sernett 
sten ist 

258 LET. 


62 L! 
Haie wählten 4 
278 Be EEE editor 


i = 
” "Soll der Monster 
"se, PRzur or REFUB HDD 





THEN ©0 TO 2a 
OR_INKEYS="u" 
;_6G0 TO 72a 
IF INKEYS<>"n" A 
THEN GO TO 2 
iRND+25>+21: LET 


29a IF INKEYS 
SBßB IF INKEY 
THEN LET s$="j 
S2@ LET s$="": 
ND INKEYS<>'"M“ 
718 LET xv=INT 
=INT (15+21 


LET x=INT 

LET y=INT 

PRINT AT 21,2%; 
8e:";7SC; TAB 11; "Draussen: 
23; "Crashs:"; crash 
188 Ben Unränguns ve 

mrandung 

aqaıa PRINT AT Z,@; INK 1, PRRRRLRETE, 
ıa20 FOR a3=1 TO 19: PRINT INK 1; 
"Et; AT 38,931,"8": NEXT 3 
ı@sa PRINT INK A; EEE BREUER Bd 
3256 REM Monster und Aepfel setz 
en 
aaea FOR 3=1 TO 12: PRINT AT_INT 
{RND+1S+1),INT {ANDs+28+12,; INK 
"8": NEXT 3 
72 FOR a=1 TO 8: PRINT AT_INT 
IS EHEN): (RND#25+1); INK 3 
S@ PRINT AT yw,xw; INK_3;,"%" 
@ PRINT AT 7,827; K z ee 
8,27; “",AT 9,28; ; 

",AT AQ,28, IMK 3, 

My 31,27; INK 3," 

B 
= Ss$="j" THEN PRINT RAT yv, 
a : LET yYv=yw-xb+ iyvwi=21I- (yWw 
8: LET xW=43VWs+Yyb+ iXVWıi=2i - iNV > 
2: PRINT AT yw,xw; INK_3; "FE" 
Z@1® PRINT AT Yy, z;" ": LET X=X+% 
: LET y=9+9yb: LET FS=CHR$ IPEEK 
(225285+32#9+x)): LET 3$=SCREENS 
{y,X): PRINT_AT 9,%,'8" 


{ARND+2U+2) 
{IRND#+1S+2) 
INK @;, "Punkt 
":dr; TAB 


® 
{R 
ia 
102 
ir. 
N 
H:) 
fe 
v 
2 


a 
7 
K“ 
32 
8 
ı 
5 


2AUBIS FOR a=1 TO t: NEXT 3 
28165 IF INKEYS$="" THEN CO TO 227 
” 
2828 _IF INKEYS=d$ THEN LET Xb=-1 
: LET yb=@ 
zasa IF INKEYS=9$ THEN LET Xb=1: 
LET yb=2 
zaagı 22 INKEYS$=c$ THEN LET b=1: 
LET xb=8 
ZaSQG IF INKEY$=r$ THEN LET Yb=-1 
ı LET xXb=B 
2078 IF 3%=" " TREN GO_TO 2uanm 
2889 IF f$="<" THEN_ LET zc=sc#+l: 
PRINT AT 21,7;sc: BEEP a.ai,2R: 
IF INT TE ni THEM LET cC 
<" THEN Goa TO 2aa2a 
IF faul THEN ©6090 TO zsaaa 
REM Urash 
PRINT RAT_21,8; FLASH 1; INK 
ERPRSH 4 


STEP_-1: PRIN 
; _INK 2;'"8": BEEP 90.823,32 
PRINT RT 4y,%; INK 2,"$": NEXT 


3 
2187 PRINT AT 21,8; INK @;" 


2198 LET %=x%-1: IF +16 THEN LET 
x“=X+2 
IF yılz 


21809 er y=y-13: THEN LET 
2118 LET crash=crash+1: 


B=yE 
IF crash 
5 THEN FOR 3=i TO 2a: NEXT 3: 
co TO 902 
2128 PRINT RT 289,0; INK @;” 


21358 PRINT AT 19,8; "Sie 
dr;" x draussen und”: 
en dabei ",5C;" 


waren "; 
PRINT "hab 
Apfel gemanmprt!” 


FCR 3=1 TO iQ: NEXT 5 
PRINT AT 21,8; "Nochmal 
neues Spiel {N)”" 
FOR _a=1 TO Seaada a 
IF CINKEYS$S="j" OR INKEYS$="J 
THEN 60 _ TO_728 ‚ 
2158 IF er "OR INKEYS$="N' 
THEN GO_TO 1@ 
2198 
zza0 


(4) 


: _RERD x$: FOR 
POKE USR x$+3 


7 

S@16 DATA "E",36,219,126,24,255, 

898 ,24,1902 

3020 DATA "®",126,219,153,255,16 

5,189,195,126 

30838 DATA "6",7,44,24,126,255,25 

5,126,44 

Sa4R DATA "A", 1989,210,255,9208,56, 

231,66,66 

sa52 DATA zE, 228.127 ,154,240,24 
"i",66,66,231,66,92,25 
"4" ,39,254,37,18,15,37 


I ETTER 1da:348!da,ısa 

Ge En 
"0",40,2,698,698,68,68,5 
"3",36,80,56,4,69,68,60 
"5",68,9,56,68,68,68,5 

ii "B",0,112,72,80,72,68, 
3999 PRINT AT yv,xw;" ": LET yv= 
YY+4&RND-2+2%*( (yv<=5)-(yVv>=15)): 


LET_xv=xv+4&RND-2+2#( {(xv{=3)-1x 
za): PRINT AT yw,xv; INK 3; " 


z######22 MAMPFMANN xz#x#####* 





2ZX81+64K RAM+-Rekorder+Floeg. 
Buch+Chip-Special+2 Handbücher 
6 Mon. alt VB400DM H.Hebel Zielre- 
benweg 10 7842 Kandern 3 





ORIC1 48K 598,-DM 

ORIC Farbdrucker 650,-DM 

ZX Spectrum 16K & 48K 
Spectrum Erweiterung 16 auf 48 K 
MAHR & MÜLLER Computer 
Westring 32 

6086 Riedstadt 5 





2X-81+32K+Super Software (Don- 

key Kong etc.) für 390 DM 0234/15889 
EPSON-FX DM 1648-EPSON-RX DM 1228 
Interfaces für SHARP Apple TRS 80 
COMMODORE etc lieferbar! Machen Sie 
aus EPSON Type Il eine Type III !! 
Umbausatz + DTSCH.Handbuch DM 98!! 
FA: REP, Frankfurt,Tel.0611-413817 





VC-20+(8K+S.Grafik)+ Datasette 
+Joyst.+umfangr.Literatur+Soft- 
ware(Bonzo,Pacman...) i.W.von über 
400,-abzugeben.Tel:040/5608178 

Superpreis 990,-DM 





@@7x81 - ZX81 - ZX81 - ZXBI@@ 
© Sensationell Billige 16K @ 

@ 16K RAM Komplett Nur DM 79,- @ 
® Fertiges Modul Mit Steckerl @ 

© J.Müller, Flurstr. 137 @ 

@® 4350 Recklinghausen @@ 





2X-81/Bauanleitungen:16K-RAM/ 
I/O-Interf./8K-Eprom/je 30,-DM 

incl. Platine zum Einbau in ZX ! 
PC1211 + CE122:300,-DM/Brother 
EP 20:320,-DM/M.Dürr 

Eichenweg 1/6653 Blieskastel 





ZX-81-Monitoranschluss: 
Zeichen grün auf schwarz;auch 
Invertierung d. Fernsehbildes 
möglich. Info:F.Kopitzki, 
Ameisenbergstr. 57c, 7 Stgt.1 





TI99/4A+PAL Modulator+Kabel 
für Antennenst.+Basic-Kurs+ 
Anleitung.Neu.Nur 485 DM 
F.Reuling Tel. 06181/69363 





Cassetten-C20 gleich 2x10min. mit Box u. 
neutralen Aufklebern im 10-er Pack;incl. 

Porto DM 23,- Nur Vorkasse auf PSA Esser 
185355-431 od. V-scheck.F.P.Dörr,6251 

Burg Balduinstein 














ZX81:16K 90,-,64K 200,-(incl.Gehäu- 
se, kein Bausatz);Tastatur 140,-.. 
Ghosthouse:Adventurespiel in deu 
tsch:Suchen Sie Schätze im Geister- 
haus,aber vorsichtig, überall lauern 
Gefahren(Schlangen...). Ein phantastisches 
Spiel! Nur 22,-DM 

Spectrum:32K 125,- Tastatur 150,- 
Centronic-Schn. 180,-;GP 100 A 75,- 
Softw.Schach 28-Liste 3,- BIMA, He- 
isterweg 6, 2382 Kropp 04624-8728 





VC-1515 Drucker mit 400 Blatt 
Nur 385DM Tel.0611-652801 





ZX81 u.16K u.ca.200 Progr.(fast 
alle bekannten Prgs) alle auf 
BASF Cr2 II Q Save,DM 600,- 
el: 0234/312896 

s 
ZX81 16K Rec. Compiler u. Schach u 
Bücher VB 260 DM 0611/412298 








TI-99/4A Suche extented Basic u. 
Joyst. evt. auch Software.W.-M. 
Weimar, Hohegrabenweg 93 
4005 Meerbusch 1 





@ @7X-Spectrum-Hardware® @ 
Buserweiterung m. Flachbandk. 34 DM 
16K nichtflüchtiges RAM ab 79 DM 
Par.Ein-Ausgabeschn. 4x8 bit 74 DM 
W. Köster, Gerokstr. 1,7174 Nusdorf 
© © Te1.07042/13248, 18-22 @@ 





2X 81 Graphik preiswert ab DM 
55 Hochaufösend D.Luda Stau- 
dingerstr. 65, 8000 München 83 





ZX81u.64Ku.HRGu.Soundu.QSave u. 
Gr.Tasteu.5 Bücheru.Software Preis 
VHB. Tel:0511/750262 ab 19 Uhr 





Mechanischer Fernschreiber mit 
VC-20-Interface u. passender 
Software 200 DM fest 06194/34946 





TI99/4a u. Ext/Bas.‚Schach,Invad 
Attack, Joyst,Rek u. Kabel, Soft 
Lit.: 1050 DM - Tel.06443/9467 





Sinclair Spectrum 

Warum kaufen? Wir verleihen ihn. 

Als kostenlose Leihzugabe erhält jeder 
ein Programm nach seinen Wünschen. 
Schulen oder Arbeitsgruppen 

erhalten Sonderkonditionen. 
Informieren Sie sich. 

Computerverleih Ebert,08168/770 
8053 Attenkirchen, Hochstr. 8 











@®@Soft u. Hardware für VC-20 
@8K Speichererw. m.Sch. 90,-- 
@16K Speichererw. m.Sch. 160,- 
@Modulbox Fertig Mon. 160,- 
@Quick Save Steckm. 50,- 
@Maschinensprachm.Steck. 50,- 
@Programmierhilfem. 50,- 
@Graphicmodul 50,- 

@üÜber 100 PRG. Info gegen 

@ 1,30 i: Briefm von 

@N.Flesch Scheideweg 63 G 
@4650 Gelsenkirchen-Buer 
@®©Soft u. Hardware für VC-20 @ 





TI99/4A (7Mon. alt) u. Ext.Basic 

(mit deutsch. Handb.) u. Shach u. 
Joysticks u. Cass.Kabel u. Software 

für 960 DM.T.Steenwerth 030/6012497 
ab 1.8. 





ORIC1 48K 598,-DM 

Oric Farbdrucker 650,-DM 

ZX Spectrum 16K & 48K 
Spectrum Erweiterung 16 auf 48K 
MAHR & MÜLLER Computer 
Westring 32 

6086 Riedstadt 5 


Verk.VC-20 m.Zubehör v. Programmen 
Claus Greve/Reepschlägerbahn 16, 
2390 Flensburg T.:0461/23893 





Verkaufe VC64 u. Floppy 1541 
1500DM Tel. 02125/2155 


Suche VC-20 Software B.Schep- 
ker,Hagenstr.44,4200 Oberhausen 


TI99/4A TI99/4A TI99/4A TI99/4A 
Suche Software für den TI 99/4A 
Bitte Angebote senden an: 

Zillner, Axel 

Loferer Bundesstr. 10 

5700 Zell am See 

PS:Bitte nur schriftliche Angebote 








Wer hilft bei der Ausarbeitung einer 
Sporttabelle (ähnl.Bundesliga) für 
TI99/4A A.Töpfer, Pf.210, 28 Bremen 21 





@VC-20 - Commodore 64@ 

Wir suchen originale Programme 

direkt vom Autor — Für Verkauf in 
Skandinavien. Da alle Programme 
übersetzt werden muss um den optima- 
len Einsatz zu erreichen — sind wir 

nur in originale Pogramme 

interessiert. Senden Sie bitte Info/Preis 
zum: DMS-Fr.Bergsalle 52, Copenhagen, 
Dänemark 








ZX Spectrum Software für 
Publikation gesucht. Angebote an: 
MAHR & MÜLLER Computer 
Westring 32 

6086 Riedstadt 5 


Tausche VC-64 Programme 
Tel. 02333/80202 nach 17 Uhr 


Suche Kontakt zu VC-20/CBM64 
Besitzern im Raum Hameln. 
Tel. 05151/23246 





Interesse an ZX Spectrum User- 
Club? Bitte Karte an: R.Knorre, 
Siegestr. 146 a, 5 Wuppertal 2 





ZX81-Spectrum Info. Wir suchen noch 
Tips-Tricks-Anwendungen, Soft & Hardware 
außerdem Inserenten für diese Info. 

Gerd Gollbach 4630 Bochum 1 Königsallee 2 


2X Spectrum - ORIC1 
Software und Literatur 
gegen 1,- Rückporto von 
MAHR & MÜLLER Computer 
Westring 32 

6086 Riedstadt 5 





VC-20 Supesoftware zu niedrig- 
sten Preisen!!! Tel. 06201/67209! 





ZX-81-Katalog DM 1: Program- 
me auf CC z.B.IQ, Multimaze.Nur 
bei C. Goltz, Ingewai 16, 2280 
Keitum 





@ VC-20/64 und andere CBM @ 
@ 1.Englischgrundwortschatz 50.- 
@ 2.Englischaufbauwortschatz 60,- 
@ 3.Trainingsprogramm in 6 Stufen 
@ Mind. 8K Speicher 40,- 

© Zusammen 140,-DM Disk. +5,-DM 
© Nur VC-64 ideal für Anfänger 

© Deutsche Fehlermeldungen z.B. 
@ 'Tipp-Fehler' Kein Speicherbed 
@ PRG. 50,-DM alle Preise incl. 

@ Porto und Verp. ohne Nachnahme- 
@ gebühr. Postscheckkonto BLN/W 
@ 4476 39-104 F.Kimmig Software- 
@ versand Roentgenstr.11 

@ 1000 Berlin 10 





Commodore 64 @ Software aus USA 
zB. Monopoly,Megaforce,30-Pacman 
uva.ab DM 5,-! Katalog gegen DM 2,- 











®® 71/994 (A) @® 
Endlich ausführliche Infos ! 
Spielbeschreibungen mit Fotos 
vom Fernseher für JEDES Progr. 
Spiel-Mathe-oder TEXTPRO- 
GRAMME (von 6,-bis 25,-DM) 
Umfangreiche Info gegen 2,-DM@ 
in Briefm. bei Sven Malmberg@ @ 
6720 Speyer, Kämmererstr. 16@ 





2X-81/16K Einfach und Schnell 
Grosse Graphiken für Spiele u. Titel er- 
stellen. Cass.'ZG'=2Prog. 20,-DM + 
NN.o.Bar Muster 1.50DM W.Flenner 
Nisterstr. 16, 5238 Hachenburg 





DD VC-20/CBM64 Programme ab 5 DM DI 
DO HGR-Masch.Spi.-Textverarbusw DD 
D Riesenauswahl! Peter Doffine [m] 
D Heugärten 9, 4763 Ense 5 DO 





ZX81:viele günst.Spielprogr.Info 
S0PFf.U.Theis Sch.hüttenw.36 6Ffm 





@@ ®Super Software für CBM-64l!! 
L} Z.B.Meteor!Tolle Grafik!20 DM 
Dafür gibt's Action! Auch Tausch 

Ruf mal an!02122/312607 @Auch MA. 





© @ ®Neue Soft-u.Hardwareliste@ @ @ 
Für TI-99/4A, VC20/64-+Drucker zu 
Sonderpreisen!Info gegen 1DM: H. 
Boxler, Mittemfeld 50/2,7320 Göpp.8 





VC-20 Software ab 3 DM bei:R.Wolf 
Deipe Stegge 187,4420 Coesfeld 





© ® ®7xX-81-16K Programmkassette 
@ ® Luftkampf(MC)+Börsenspiel(MC) 
© Breakout+Inkaschatz+Euopa(MC) 
@Alle zus.nur 20,-DM-VK oder 

NN + VK - W. Zimmermann Fischbaher 
Str.15 - 6380 Bad Homburg 





2X Spectrum - ORIC1 
Software und Literatur 
gegen 1,- Rückporto von 
MAHR & MÜLLER Computer 
Westring 32 

6086 Riedstadt 5 





TI 99/4A Software Service 
Superprogramm a. aller Welt 
Programmkassette(INFO g. Rückp.) 
99'Service an der Weide 21 

3160 Lehrte Tel.05132/54314 


TI 99/4A Software Z.B.Roulette 10,- Liste 
gegen RP an Quint,Lesingstr.24,8411 Lap- 
persdorf 














ZX81/16K;25 Neuentw. Pogramme, 

z.B. Dame(14K),Flugsim.,3-Säulen 
problem u.a.Spiele;Super-Adr.+ 
Tel.-Reg.!;Super-Säulengrafik!; 
Bibliotheksverw.;Programmierhil- 
fen;Pgme z. Ber. mathem. und anderer 
Funkt. ALLE 25 PGME ZUSAMMEN AUF 
KASS. NUR 30,-DM(auf Pschkk. 42 
0745-204 od. V.-scheck) an Th. 

Schulz, Postfach 602542, 2 Hamb. 60 





®@@VC-54 VC-644000® 

@ Software-Interessengemeinschaft 
@ Programme kaufen + tauschen ! 
® Bei W.Schlenke, Haseninkel 13 
@ 5778 Meschede Tel.:0291/51729 
0oo0..u........ 





ZX-Spectrum Actionspiele und vieles 
andere. Info gegen 50 Pfg. Dipl.- 
Ing. G.Verse,GrünerWeg 45, 

4650 Gelsenk 





VC-20 Spitzenprogramme ab 1 DM !! 
20-Seiten-Super-Info gegen 1,30 DM 
bei Werner Kratz, Benedikti- 
nerweg 23, 5100 Aachen 1 





Suche Astronomie-Programme 
Computer-Navigation:Planeten, 
Sterne, usw. für CBM 64 





VC-20 Module:Sargon Il, Jupiter 
-Lander, Programmer’s Aid und 
Mashine Monitor je DM 50,-; 
Graph.+3K RAM Karte DM 120,- 
alles bei B.Regenhardt HH/040/ 
457636 





Spectrum Progs. 16-48K Tel.0234/312896 





Sie bekommen bei uns Software 
folgender Hersteller: Artic, 

A+F, Bug-Byte, Campell, Viking, PSS, 
Imagine, Melbourne House, 
Hewson Consultants, Impact, 
Spectrum Games, dk'tronics für 
ZX Spectrum, ZX81, BBC, VC20, 
CBM64 und Dragon. Wer in 
Deutschland ist billiger? 

Auch Hardware z.B. Specttrum 
Lichtgriffel, Spectrum 32K Er- 
weiterung usw. Katalog anfordern 
gegen 1,80 DM in Briefm. 

Th. Wagner, Softwareversand, 
Postfach 11243P, 8900 Augsburg 





TI-99 Supersoftw.! Info g. 1,- 
C. Wurzer,Grüntenweg14,85 Nbg. @ 





ZX-Spectrum-Software 
Spiel- und Lernprogramme sowie 
sinnvolle Maschinencoderoutinen 
auf CrO2-Kassetten. 

Liste gegen frankierten Rückum- 
scchlag (DIN A 5). Uwe Hampel 
Nienkamp 2 
44 Münster 





Spiele für Sinclair ZX Spectrum 
EMM Software präsentiert: 
Tempest (48K) noch 45 DM 
Centipede (48K) nur 39 DM 
Startreck (48K) nur 22 DM 
Viele weitere Spiele;auch 16K; 
sind erhältlich. Bestellung und/ 
oder Info (geg.Freiumschlag) bei 
Boris Baginski & Peter Stieda, 
Sponeckstr. 8, 8000 München 60, 
® auch ZX 81-Spiele erhältlich @ 








ZX81 Lotto ZX81 Lotto ZX 81 Lotto 
Endlich: Alle bisherigen Gewinn- 
zahlen im 16K-RAM des ZX81 ! Mit 
3 Komfort-Programmen und ausführ- 
lichen Erläuterungen: 30 DM 
Scheck oder +NN: Günter Blatt 
Wiesenstr. 10, 5509 Schillingen 





DO ZX-81 Super-Biorhythmus nur DO 
DO 15DM per NN u.a. Programme DO 
DO Info: 80 Pf. Axel Sporleder DI 
D Schellingstr. 10,744 Nürtingen 

















TRS80/Grosse Programmauswahl klein- 
ste Preise/Liste bei G.Kremer 3, 
rue Adolphine Fischen 1520 Luxemburg 





@®Sinclair ZX81 u. Specttum® @® 
@16K-RAM DM 89,-64K-RAM DM 189,-@ 
@Tastatur-Autorepeat etc. DM 98,- @ 
@Dateiverw.f.48K Spectrum in @ 
@deutscher Sprache DM 29,- @ 
@und weitere int. Programme ! @ 
@Info gegen DM-,50 Rückporto ! @ 
@Dorsch-Elektronic, Hauptstr. 23 @ 
©8501 Eckental 2 Tel. 09126/7419 @ 
Spectrum 16-80K Preis a. Anfrage ! 





Sinclair 

Software-Power 

Fordern Sie gegen 

DM -,80 in Briefmarken 
unser ausführliches INFO 
an. Wir haben alles, was 
Sie schon immr suchten ! 
LENCER-SOFTware, 
Wilh.-Schröder Str.18 
4130 Moers 1 





Spitzen Software für TI-99/4A 
fast gratis! Liste bei Stefan 
Verhaaren, Ripshorsterstr. 309, 
4300 Essen 11,Tel.0201/692844 





TI99/4a Progcass.geg. 20DM U.a. 
Nim-spiel, Rechenprog., Trafo-Ber. 
Mondlandung, Tic-Tac-toe, D.Heid- 
mann, Hauptstr. 330, 6683 Spiesen 





APPLE: Verk. Hayden Eitor-Assem 
Editor-Macroassem. u. Forth mi 

HGR-Routinen je 100 DM. Weidlich 
Alfred-Nobel-Str. 24,5650 Solingen 





@VC-20@o0.Erw.!PGM’s a.Cass. 10 DM! 
u.a. Frogger! Info: 1DM v. A.Müller, 
I.Mooriese 3, 2219 Lägerdorf 





TI-99 Software für Schule/Freizeit 
und Beruf !! 

z.B. Adressenverwaltung 
H.Rafeimer, Lokst. Steind. 69a,2 HH 





Software für ZX Spectrum16/48K 
von priv. zu verkaufen. 
Info gegn Freiumschlag 





TI 99/4a:Spannende Spiele in Ex- 
Basic, u.a. ein Adventure Spiel 

in 3D-Perspektive, hohe Spielge- 
schwindigkeit, ausgezeichnete 
Grafik, Lutz Stradmann, Steuerwal- 
derstr. 81, 3200 Hildsheim 





TI-99/4A Software 

Liste gegen Freiumschlag 
F.Reder 

Waiblingerstr. 26 

7000 Stuttgart 50 





D VC-20/CBM64 Programme ab 5 DM DI 
OD) HGR-Masch.Spi.-Textvearb. usw DI 
DI Riesenauswahl! Peter Doffine 

DI Heugärten 9, 4763 Ense 5 OD 


Ihr Hobby als lukrativer Neben- 
verdienst. Geld verdienen mit dem 
Computer. Wie? Postkarte an Quint, 
Lessingstr.24,8411 Lappersdorf 





Erste Berliner Computer-Börse 
23.Juli 1983 10-18 Uhr 
Hardenbergstr. 34 - TU-Mensa 
Infos: 030-6926178 





Verkaufe HC-Abo (8/83-7/84) für 
NUR 35-DM Tel:06501/12384 











Computerclub für VC-20 Anwender 
Info gegen 20 PF in Briefmarken 
und Rückp. C.Zalessiak 

Broicher Str. 42, 4200 Oberhausen 


VC-20 Wer hat Lust, einen Soft- 
waretauschclub mitzugründen ? 
Robert Elmshäuser,Teichweg 6 
3550 Marburg 7 





Laufend neue BASIC-Kurse 
Praxisnah direkt am Computer. 
Info: MAHR&MÜLLER Computer 
Westring 32 

6086 Riedstadt 5 


Versicherungen für Computer ! 
Top Schutz für wenig Geld. Infos 
von Klaus Koch,Wittener Str. 95 
5810 Witten Tel:02302/71718 





Tim.Leary:Smile;Vortrag 90 min. zu 





©® VC20@Die Neuheit!@VC20 @® 


®® ZX-Zeitung @@ fü 80/81 @@ 
Hardware,Software, Tips, Tricks, 
kostenlose Leseranzeigen .... 
Erscheint alle 2 Monate ab 1.7. 
Überweisung von 10,-DM auf Psch- 
kto:Hambg.1032 92-201/ G.Klauke 
2335 Damp 2000.Kennwort 'ZXH' 
Absender nicht vergessen ! 


allen Systemen nur DM 59,- 


Computer;Genetikum;etc. Toncass; 
Nie mehr die Katze im Sack 
kaufen !! Sehen Sie vorher 


Video;M.Kühn,Lotzestr.60,34 Göttingen 





den Programmlauf auf Video 
Cassette mit über 120 ! 
Programmausschnitten in 


Cassetten für Ihren Computer 
10er Pack @ C10 nur 18,-DM 
Bandsorten @ C15 nur 18,50DM 
BASF-LH @ C20 nur 19,-DM 
Christomenia-Cassettenstudio 
Gartenstr.11,3584 Zwesten 


H.Fischer,Luckemeyerstr.10 
in 4000 Düsseldorf 12 
Info-Liste geg. Freiumschlag 





Suche Roulette-Permanenzen 
auf Band/Disk mit Quellenangabe 





Laufend neue BASIC-Kurse. 
Praxisnah direkt am Computer. 
Info: MAHR&MÜLLER Computer 
Westring 32 

6086 Riedstadt 5 











COLOR-COMPUTER 


Z80A, 16 KROM, 8K RAM (bis 64K), 
Farbgrafik, Soundgenerator, TV- und 
Kassettenanschluß, dt. Handbuch, 
Super-Microsoft-Basic 


Unser Superpaket! 
Laser 210 + Grafikdrucker+ 
Druckerinterface + Recorder, 

nur solange Vorrat reicht 

The Wildcard kopiert fast jedes 
Apple Il und //e Programm 
Verbatim 

Disketten 514” 


210 


om 388,— 


om 998,— 
om 398,— 
10Stückaopm 59;— 


Die brandneuen Programme aus England und USA 
für VC 20/VC 64 : Atari 400/800 - Apple. 

Fordern Sie unsere kostenlose Liste an! 

Wir liefern bei Vorkasse frei Haus! 

Alle Preise incl. Mehrwertsteuer. 


6200 Wiesbaden 
Postfach 2206 
Tel. 06121/407611 


Unser 
Oskar © istrund 
um die Uhr für Sie da! 


Auftrag für Gelegenheitsanzeigen in Homecomputer 


An Homecomputer Name und Adresse 





Gartenstraße 47 





3440 Eschwege 





Unterschrift 
Unter der Rubrik „Kleinanzei- 
gen“ veröffentlichen wir Ge- 
legenheitsanzeigen für Ver- 


Ich zahle sofort nach Rechnungserhalt. 


Ich wünsche folgenden Text zu veröffentlichen: 


I 





kaufsangebote, Kauf- und 
Tauschgesuche, Kontaktauf- 
nahme bzw. Erfahrungsaus- 
tausch usw. 











Preise für „Kleinanzeigen“: 
Private Gelegenheitsanzeige 
je Druckzeile 5,— DM inkl. 








MwSt. Chiffregebühr je Anzei- 
ge 10,- DM. 


Gewerbliche Gelegenheitsan- 
zeige je Druckzeile 7,—DM inkl. 
MwSt. (dürfen nicht unter Chif- 



























































fre erscheinen). 





suche 














biete an 





Zutreffendes ankreuzen 
DO Tausch Versch. 
Kontakte [7] Chiffre 








suche Hardware 


























biete an Hardware 

















Programme auf Diskette 
und Kassette 


Nicht jeder Leser hat die 
Zeit und die Geduld, alle 
Programme, die er gerne 
hätte, in sein Gerät einzu- 
tasten. 

Wir haben uns deshalb 
überlegt, daß es das ein- 
fachste ist, wenn wir die 
Programme, die wir ohne- 
hin auf Diskette oder Kas- 
sette vorliegen haben, die- 
sem Leserkreis zum Selbst- 
kostenpreis (Datenträger, 
Kopierzeitaufwand, Porto, 
Verpackung und Mehr- 
wertsteuer) anbieten. 

Es genügt jeweils die An- 
gabe eines Stichwortes, z. 
B.: VC-20-Disk Heft 5 oder 
Sinclair-Kassette Heft 5. 


Bestellungen Inland: 


Gegen Einsendung eines 
Schecks oder Vorauszah- 


Kassetten und Disketten, 


aus Heft 3/83 


VC-64 
Biorhythmus 
Roulette 
Labyrinth 
Disassembler 


CBM (Pet 3000) K 8,- DM 
Concorde 

Uhr 

Kalender 

51 

Roulette 

Sharp MZ 80 
Submarine-Hunt 
ZX-81 
U-Boot-Jagd 
Rotamint 
Apple II 
Rscroll/KDB 
Diskhandler 
Bundesliga 
Autokosten 


VC-20 


K 8,- DM 


K 5,- DM 


K 8,- DM 


D 15,- DM 


K 8,- DM 
D 15,- DM 
Zeichengenerator 
Disassembler 
Slalom 
Robot 


TI 99/4 
Dive-Bomber 


K 5,- DM 





lung auf unser Konto bei 
der 

Kreissparkasse Eschwege, 
Bankleitzahl 52250030 
Nummer 4522934 senden 
wir Ihnen die gewünschten 
Programme schnellstmög- 
lich zu. 


Bestellungen Ausland: 


Nur Vorauskasse, Schein 
(Kassette 10,- DM, Disket- 
te 20,- DM). Keine 
Schecks oder Überweisun- 
gen! 


Lieferung noch nicht 
erhalten? 


Bei Überweisung aufunser 
Konto kann es bis zu 2 Wo- 
chen dauern, bis wir Ihre 
Bestellung in Händen ha- 
ben. 

Oft passiert es, daß auf der 
Überweisungsdurchschrift 
weder Name, noch Ort, 


aus Heft 4/83 


K = Kassette 

D = Diskette 
VC-64 
Assembler 
Kalaha 
Maze-Challenger 


K 8,- DM 


CBM (Pet 3000) K 8,- DM 
Maze-Challenger 
Kalaha 


ZX-81 

Brüche pauken 
Life 

Survive 
Labyrinth 


K8,- DM 


Apple II 
Suchrätsel 
Disk-Schutz 
Oktopus 
Labyrinth 


D 15,- DM 


VC-20 K8,- DM 
D 15,- DM 
Labyrinth + 8K 
Spukhaus +16K 


Assembler 


TI 99/4 
Asteroiden 


K 5,- DM 





noch Art der Bestellung zu 
erkennen sind. Schreiben 
Sie uns! (Anrufe kosten 
viel Geld und bringen, weil 
dann Schriftvergleiche 
nicht möglich sind, kein 
Ergebnis!) 


Wenn es bei uns besonders 
hektisch zugeht, dann 
kann es schon mal passie- 
ren, daß es mit der Liefe- 
rung etwas länger dauert. 
Vergessen Sie bitte nicht: 
Der Kassettenservice ist 
ein zusätzlicher Service 
von uns, der Ihnen, dem 
Leser, Tipparbeiten erspa- 
ren soll (Sie kennen den 
Versuch einer anderen 
Zeitschrift, dieses per 
Lichtgriffel zu ermögli- 
chen). Wir tun unser mög- 
lichstes. Aber Pannen sind 
nie ausgeschlossen. 

Bitte haben Sie in solchen 
Fällen Verständnis. 


aus Heft 7/83 


VC-20 

Grid Gummer 
Oil Panic 

VE Pinball 
Highway 


K 8,- DM 


ZX-81 
Apfelbaum 
ZX ärgere dich nicht 
Hausnummern 


K 8,- DM 


CBM 3000 K 10,- DM 
Adventure Castle 
Börsenspiel 

Station Defender 

Apple II D 15,- DM 
31" 


TI-99 
Steckerspiel 


K 5,- DM 


ZX Spectrum 
Mampfmann 


K 8,- DM 





die bisher lieferbar sind. 


aus Heft 5/83 


TI-99/4A 
Panzerkrieg 
TI-Ufo 
Killersatellit 
Chiffrier/dechiffrier--PGM 
Rangliste 


VC-20 


K 10,- DM 


K 14,- DM 
D 20,- DM 
Invaders (3PGME) +16K 
Editor 
Assembler (neu) 
Labyrinth (3K) 
Car-Crash +8K 
ZX-81 

Ritter 

Missile ZX-Command 


VC-64 K12,- DM 
Editor D19,- DM 


Assembler (neu) 
Mondlandung 

Wurm 

Geisterjäger 
VC-64-Sprite-Generator 
Apple II D 12,- DM 
Diskschutz 
Trollhöhlen 
Pet-Bytes 
Mastermind 1 
Mastermind 2 


K 8,- DM 


K 8,- DM 





aus Heft 6/83 
VC-20 K 10,- DM 
D 17,- DM 
Bomber +3K 

Old Shurehand +3K 

Logo +3K 

Hürdenlauf +3K 
Adressdatei +8K 


VC-64 K 8,- DM 
‚ D 15,- 
Schluckermaxi 


Synthesizer 
Goldfieber 


Apple II 
Starwars 
Zentrifugalkraft 
Texteditor 


D 15,- DM 


ZX Spectrum 
Frogger 


ZX-81 
Data 
Renumber 


CBM 3016 
Galactica 


TI-99 
Space-Defence 
Street Race 
Breakpoint 


K 5,- DM 


K7,- DM 


K5,- DM 


K 8,- DM 











WICOSOFT 


präsentiert: 


Das AUTOMATA UK Ltd. Programm aus England. 





PIMANIA 


für ZX-81 16K 

für ZX Spectrum 48K 

für Dragon 32 

Das sensationelle Adventurespiel 
aus England. Bisher ist es noch 
niemandem gelungen, Pimanias 
Rätsel vollständig zu lösen. Dem 
ersten, dem dies gelingt verspricht 
der Hersteller einen Preis von 
£6000 (z.Zt. ca. 24000.-DM). 
Pimania ist voller Musik, Cartoons 
Songs und Tänzen. 

Geschossen wird hier nicht! Das 
Spiel kann eine Woche dauern 
oder auch ein ganzes Leben. Du 
findest eine Menge ungewöhnli- 
cher, geheimnisvoller Dinge. Gut, 
daß Du das Spiel in jeder Phase sa- 
ven kannst, nachdem Du heraus- 
gefunden hast, wie! 

Die engliche Computerscene hat 
PIMANIA zum besten Adventu- 
re, das jemals für Sinclair und Dra- 
gon Computer geschrieben wurde 
erklärt. 


Auf der Cassetten-Rückseite der Original-Pimania-Song mit Clair Sinclive!? 


and The Mystery Man 


Englischkenntnisse sind notwendig! 











DM 39.50 B 


BUNNY. 
ET.a. 


for any ZX Spectrum 





BUNNY plus 
E.T.a. 


für jeden ZX-Spectrum 

Zwei unkriegerische Spiele aufei- 
ner Kassette. Auch bei E.T.a. sind 
Englischkenntnisse von Vorteil. 


DM 19.50 





BEST POSSIBLE 


TASTE 


für den ZX-81 IK 


Das Bestmögliche für den IK ZX-81! 


A PACK OF BRILLIANT 
AUTOMATIC DEMONSTRATION 
PROGRAMS. PERFECT FOR 
THE HOME & TRADE ALIKE 


‚plus 
SELF-TEACHING GRAPHICS 





30 Spiele auf einer Kassette! 

Horrorscope, Bad Spells, Der Führer, Acne, 
Kick The Bucket, Horserace, Royal Flush, 
Funny Valentine, Pox, Dole, Stork, Gro- 
wing Up, Life Support, Tumbling Dice, Fai- 
ries, Find The Number, Reagan, Crystal 
Ball, PS and QS, Genesis, God, Noahs Ark, 
Plagues, Goliath, Jonah, Merry Christmas, 


_. DM 19.50 


DESIGNING AND DRAWING 
PROGRAM, COMPLETE WITH 


SIMPLE FULL INSTRUCTIONS 


= 


Ein Paket brillanter automatischer Demoprogramme. Per- 
fekt für Heim und Geschäft. 

Plus Lehrprogramm zum Selbsterstellen von Grafiken. 
Vorhandene Zeichensätze - z.B. Griechisch, Russisch, He- 
bräisch, Arabisch, Mathe, Schach, Fußball, Invaders, Pac- 
man, Frogger, usw. - Hunderte weitere durch einfache Kom- 
mandos selbst zu erzeugen. 


& 


PastayM 


SPECTACULAR 


THE SELF-TEACHING 
USER-DEFINED GRAPHICS 
PROGRAM, plus A BUILT- 
IN LIBRARY OF READY- 
MADE SYMBOLS. including 
GREEK, RUSSIAN, HEBREW, 
ARABIC, MATHS, CHESS, 
FOOTBALL, INVADERS, 
PACMAN, FROGGER, AND 
HUNDREDS MORE all at 
the touch of a key. 








DM 19.50 











Bestellungen an: 
WICOSOFT * Nordstraße 22 * 3443 Herleshausen * Tel. 05654 - 6182 


Bitte benutzen Sie Bestellkarte im Innenteil des Heftes! 
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Bas 
 VIC20- 


COMMODORE 64 


generator lets you re-define 
and shape your own character 











SPRITE 
MAKER 
64 






CASSETTE 
Design and save beautiful 


multicoloured sprites, and 

use them in your own 
rogrammes! Full editing 

facilities and 
Jocumentation. 
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WILL YOU BE THE SUPREME 
WORLD CHAMPION? 
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